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Vorwort 


Clive Sinclair hat es erneut geschafft, und wir auch. 

Nicht zufrieden damit, mehr als eine Million Mikrocomputer ZX81 ver- 
kauft zu haben, hat er jetzt den ZX Spectrum herausgebracht. Sie können damit 
nicht nur einen Heimcomputer zu einem vernünftigen Preis bekommen, son- 
dern erhalten dazu noch Ton, Farbe und hochauflösende Grafik. (Und eine 
akzeptable Tastatur!) 

Als der ZX81 herauskam, verfaßten wir dazu einen Einführungsband, der 
den Titel Sinclair ZX81, Programme, Spiele, Grafik trug. Wir wollten dieses 
Buch hier schon "Der Sohn von Sinclair ZX81° nennen, aber das wäre doch zu 
albern gewesen. In gewissem Sinn stimmt es aber. Es ist die Spectrum-Version 
von "Sinclair ZX81, Programme, Spiele...” 

Der Spectrum hat mit dem ZX81 verschiedene Dinge gemeinsam; wo das 
möglich war, haben wir sie auf die gleiche Weise behandelt. Wenn Sie also das 
erste Buch erworben haben und nun zu den Aufsteigern gehören, werden Sie 
rund ein Viertel bis ein Drittel des Inhalts wiedererkennen. Aber sogar das haben 
wir neu gefaßt, um die überlegenen Eigenschaften des Spectrum nutzen zu 
können. Der Rest ist neu, aber auf ähnliche Weise abgefaßt. 

Das Ziel ist klar: Auf einfache, leicht verständliche Weise jene Eigenschaf- 
ten des ZX Spectrum zu beschreiben, die ein Benutzer (wir nennen ihn künftig 
User”, wie das Brauch ist) kennen muß. Zusätzlich haben wir rund 30 Listings 
von "Fertigprogrammen” angefügt, die nach Belieben eingegeben und gefah- 
ren werden können; im Text finden sich noch einmal rund 3® Programme. Unser 
Vorteil dem Handbuch gegenüber: Wir können auswählen und uns auf die 
weniger ausgefallenen Merkmale beschränken: man sieht sonst vor lauter Bäu- 
men den Wald nicht mehr. 

Was kriegen Sie also? Sie bekommen eine ruhige Einführung für BASIC- 
Programmieren, Programmierstil, Farbe, Ton, bewegte Grafik, hochauflösende 
(raffinierte) Grafik, Debugging (bei Laien heißt das '"Fehlersuche’’), Zahlenver- 
arbeitung und Umgang mit Strings (zu deutsch: "Ketten”). Wenn Sie das 
gelesen haben, wird das Handbuch von Sinclair für Sie eine Kleinigkeit sein. 
Alles ist in leichtverdauliche Abschnitte aufgeteilt, damit Sie zwei Stunden am 
Spectrum verbringen und anschließend das Gefühl haben können, wirklich 
etwas geleistet zu haben. Und dazu eine Vielzahl von Programmen zu Ihrer 
Belustigung; sie nutzen die bemerkenswerten Fähigkeiten des Spectrum wirk- 
lich aus. Beachten Sie auch die Fehlermeldungen auf Seite 192. Schneiden Sie 
diese aus dem Buch aus und kleben Sie sie auf ein Stück Karton. Das beilie- 
gende Datenblatt enthält die wichtigsten Tabellen des Handbuchs. Halten Sie 
diese beiden Hilfsmittel stets in Reichweite. Sie ersparen sich damit viel zeitrau- 
bendes Herumblättern. 


Bis jetzt haben wir uns kollektiv als "wir" bezeichnet, aber später funktioniert 
das nicht mehr so gut. Persönliche Erfahrungen, die durch ein "wir” vermittelt 
werden, wirken sonderbar. Da jeden Abschnitt nur jeweils einer von uns ge- 
schrieben hat, einigten wir uns auf das Wort “ich”, mit dem wir beide gemeint 
sind. Falls Sie das stören sollte, bedenken Sie, wie oft sich einzelne Verfasser als 
“wir” bezeichnen. 
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1 BASIS-BASIC 


ROM, RAM, REM... Computersprache ist gar nicht rätselhaft — 
das sieht nur so aus. 


Computer haben im Grunde nichts Rätselhaftes an sich. Sie sind schlicht 
Maschinen, die Folgen von Befehlen ausführen. Die Art und Weise freilich, wie 
sie das tun, ist in der Tat geheimnisvoll, zumindest für den, der nicht gerade ein 
Doktorat in Festkörperphysik sein eigen. nennt. Aber so, wie man ein Auto zu 
lenken vermag, ohne es bauen können zu müssen, kann man auch einen 
Computer programmieren, ohne zu wissen, wie er konstruiert ist. Ein gewisses 
Verständnis für das Gerät als solches, also für das, was die Computerfachleute 
Hardware nennen, ist allerdings von Nutzen, wie es ja auch praktisch sein kann, 
die Funktion eines Getriebes zu verstehen, wenn man die Gänge wechseln will 
oder sich die Frage vorlegt, wieso dergleichen überhaupt nötig ist. Die Grund- 
lagen des Programmierens haben mit der Hardware aber nicht viel zu tun, was 
den normalen User angeht. 

Maschinen, die Befehle befolgen, gibt es schon lange. Blaise Pascal, der 
französische Mathematiker und Philosoph, baute 1642 eine Rechenmaschine. 
Charles Babbage, ein Engländer, konstruierte 1835 eine ehrgeizige "'analytische 
Maschine”; der britische Staat wurde dazu bewogen, in das Gerät zu investie- 
ren. Wie andere staatliche Unternehmungen erwies sich auch dieses angesichts 
der Technologie der damaligen Zeit als nicht durchführbar, aber die Idee selbst 
war originell und sinnvoll. Der Franzose Joseph-Marie Jacquard entwickelte zu 
Beginn des 19. Jahrhunderts ein System gelochter Karten, um das von einem 
Webstuhl hergestellte Stoffgewebe zu steuern. Dampfpfeifenorgeln auf Jahr- 
märkten arbeiten nach einem ähnlichen Prinzip. Man kann sich sogar ein 
Orchester von Berufsmusikern als eine Maschine vorstellen, die Musik produ- 
ziert; die geschriebenen Notenblätter wären demnach das “Programm”. Der 
Vergleich ist gar nicht übel. 

Es hat keinen Sinn, zu einem Jacquard-Webstuhl zu gehen, ihm zu 
erklären: "Bitte, sieben Meter Tweed, blaugrün kariert’, und zu erwarten, daß 
Sinnvolles geschieht. Diese Sprache spricht die Maschine nicht. Sie versteht 
nur eine Folge gestanzter Löcher, und für Größe, Zahl und Anordnung dieser 
Löcher gibt es eine ganze Anzahl strenger Regeln. "Muß i denn, muß i denn” in 
einer Dampfpfeifenorgel läuft nicht bei einem Webstuhl —- und selbst wenn das 
der Fall wäre, käme dabei etwas heraus, das mit der Originalmelodie nicht mehr 
viel zu tun hätte. Man müßte wissen, welche Folge von Löchern erforderlich ist, 
um im Gewebe das gewünschte Fadenmuster zu erzeugen. Die Anordnung der 
Löcher ist somit eine Art codierter Version des Gewebemusters, wobei der 
Mechanismus des Webstuhls als Mittler wirkt. 

Ebenso sind die von einem Orchester verwendeten Notenblätter eine 
codierte Version der beabsichtigten Töne, das Orchester dient als Mittler. (Einen 
kleinen Unterschied gibt es: Orchester arbeiten nicht so präzise wie eine Ma- 
schine, und der Dirigent verfügt über eine gewisse Freiheit, die Musik zu 
interpretieren. Aber der Vergleich kommt der Sache nahe.) 

Bei Computern ist es genauso, nur noch in viel stärkerem Maß. Mit jeder 
Maschine muß man in der Sprache reden, die sie versteht. In der Frühzeit der 
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Computertechnik hieß das, daß man lange Listen zu tippen hatte, die etwa so 
aussahen: DIDDO111B1OB11B1H11111111000191190001019011... 
was für die Augen nicht sonderlich gut ist. Im “Innersten’’ denken die Computer 
immer noch so. (P bedeutet dabei "kein elektrischer Stromdurchgang‘', 1 "elek- 
trischer Stromdurchgang”.) Diese recht simple Sprache ist der Maschinencode 
des jeweiligen Computers. Wie durch Zauberei kann man damit alles machen, 
was man will, und im allgemein hat das den Vorteil, daß es sehr schnell läuft... 
aber Programme damit zu schreiben, ist nicht so einfach. 

Zum Glück braucht man das heutzutage nicht mehr zu tun. 

Der Grund: Man kann einem Computer beibringen, Befehle in einer 
anderen als seiner "Muttersprache’’ entgegenzunehmen. In Wirklichkeit erar- 
beitet ein fleißiger Programmierer eine Art ""Wörterbuch”, um die neue Sprache 
in Maschinencode zu übertragen, und füttert es in den Computer ein (entweder 
von einer äußeren Quelle oder eingebaut in die Hardware). Das Wörterbuch 
tragt den Namen Compiler oder /nterpreter, je nach der Arbeitsweise. 

Der Spectrum verfügt über einen eingebauten Interpreter für eine Spra- 
che, die BASIC genannt wird (das heißt "Beginners All-purpose Symbolic 
Instruction Code”, also soviel wie "Symbolischer Allzweck-Befehlscode für 
Anfänger”). Diese Sprache wurde Mitte der sechziger Jahre in den USA ent- 
wickelt und ist weit verbreitet. Sie hat den Vorteil, relativ einfach zu sein, und 
kann als eine Art Kreuzung zwischen Englisch und Schulalgebra gelten. Was 
den Anfangsprogrammierer betrifft, spricht der Spectrum nur BASIC. (Über die 
USR-Taste ist jedoch die Z830-Maschinensprache zugänglich — und wenn Sie 
nicht wissen, warum Sie sie benutzen sollten, haben Sie keine Verwendung 
dafür. Jedenfalls vorerst noch nicht.) 


Ein BASIC-Programm 


Statt mit der Grammatik” von BASIC anzufangen, wollen wir uns einmal ein 
einfaches BASIC-Programm ansehen, um festzustellen, was es leistet und wie 
es das macht. Der Vorteil davon: Sie können sofort erkennen, wie leicht das ist. 
Die grammatikalischen Feinheiten kommen später. 


18 PRINT "Verdoppeln” 


20 INPUTx 

30 LETy=-x+tx 
40 PRINTx,y 
50 STOP 


Vermutlich erkennen Sie schon auf den ersten Blick, was hier vorgeht. Zunächst 
sind aber ein paar Punkte zur Form des Ganzen zu beachten: 


a Es besteht aus einer Folge von Zeilen. 

b Jede Zeile ist ein "zulässiger” (das heißt, logisch vernünftiger) BASIC- 
Befehl oder -Kommando oder eine BASIC-Anweisung. (Diese drei Aus- 
drücke bedeuten in der Praxis alle dasselbe.) 

c Jede Zeile beginnt mit einer Nummer, die (wenig überraschend) Zevlen- 
nummer heißt. (Computer verwenden oft ® für Null, um die Ziffer vom 
Buchstaben O zu unterscheiden.) 


Diesen recht naheliegenden Bemerkungen muß ich ein paar Klarstellungen 
nachschicken. Einige davon gelten für alle BASIC-Interpreter, wie sie bei an- 
deren Computern verwendet werden, manche nur für den Spectrum. Um mich 
nicht zu überanstrengen, will ich mich bei den Unterscheidungen nicht aufhal- 
ten; wenn Sie zu einem größeren Computer aufsteigen, werden Sie bald dahin- 
terkommen. 

Zu a) lohnt keine Bemerkung außer der, daß beim Spectrum eine Pro- 
grammzeile länger sein darf als eine ganze Zeile auf dem Bildschirm — den 
Computer stört das nicht. 

Einzelheiten zu b) hängen von der BASIC-"Grammatik’ ab, auf die wir 
noch kommen. 

Der Grund für die Numerierung von Zeilen c) ist der, daß Sie zu Beginn 
Ihrer Programmiererlaufbahn den Computer auffordern wollen, bestimmte Zei- 
len eines Programms auszuführen. Ein Befehl "GOTO 730% befiehlt ihm, das zu 
tun, was in Zeile 730 steht... aber er muß wissen, was für eine Zeile das ist. Es 
hat Vorteile, nicht einfach "1, 2,3..." zu zählen, wie wir noch sehen werden. 
Die Zeilennummer muß eine ganze Zahl zwischen 1 und 9999 sein, beide 
eingeschlossen. 

Arbeitet der Computer ein Programm durch, so geht er von einer Zeile zur 
nächsten (außer er erhält als Teil des Programms den Befehl, zu einer anderen 
Stelle zu gehen). Er braucht also diese Zeilennummern, auch wenn der Pro- 
grammierer sich gar nicht auf sie beziehen möchte. Der Spectrum nimmt Zeilen 
ohne Nummern nicht an (führt stattdessen aber vielleicht den Befehl für diese 
Zeile so aus, als sei erein Taschenrechner). Vergessen Sie also auf keinen Fall die 
Zeilennummern! 


Was macht er? 


Tippen Sie das obige Programm in Ihren Spectrum. Die vollständigen Feinhei- 
ten der Tastatur erkläre ich etwas später; es wird Ihnen sicherlich aufgefallen 
sein, daß auf jeder Taste enorm viel zu lesen ist. Manche Tasten können tatsäch- 
lich acht verschiedene Wirkungen hervorrufen, je nachdem, in welchem "Mo- 
dus” und '"Shift”” sie sich befinden! Die grausige Wahrheit müssen Sie aber 
nicht auf einmal erfahren. 

Ich will davon ausgehen, daß Sie den Computer gerade eingeschaltet und 
die Meldung "© 1982 Sinclair Research Ltd.” erhalten haben. (Wenn nicht, 
drücken Sie NEW oder ziehen kurz den Stromstecker heraus.) 

Nehmen wir Zeile 1® als Beispiel. Drücken Sie Taste 1 (oberste Reihe 
links) und denn ® (oberste Reihe rechts). Sie sehen die Ziffern unten am 
Bildschirm auftauchen, zusammen mit einem blinkenden [K]. Dazu sagt man 
Cursor. Drücken Sie als nächstes die Taste "P’”: Es erscheint das ganze Wort 
PRINT. Das ist ein sehr raffinierter Zug vom Spectrum und erspart viel Zeit. 
Durch das Drücken einer einzigen Taste können ganze BASIC-Wörter geschrie- 
ben werden. (Es wird Ihnen aufgefallen sein, daß das Wort "PRINT auch auf 
der Taste P steht.) 

Nun zum Anführungszeichen “. Auch das steht auf der Taste P. Aber in 
roter Farbe. Das heißt: Sie müssen die SYMBOL SHIFT-Taste gedrückt halten, 
während Sie Taste P drücken, um die Anfüuhrungszeichen zu erhalten. Lassen 
Sie die Taste SYMBOL SHIFT jetzt los. Wenn Sie ein großes V haben wollen, 
halten Sie die Taste CAPS SHIFT gedrückt, während Sie Taste V drücken. 
Lassen Sie CAPS SHIFT nun los und drücken Sie der Reihe nach die Tasten E, 


9 


R,D,O,P,P,E,L,N. Sie werden in Kleinbuchstaben geschrieben — "erdop- 
peln”. Nun wieder die Anführungszeichen: Wie vorher SYMBOL SHIFT und 
Taste P. 

Zeile 1® steht jetzt am unteren Bildschirmrand. (Auch aus dem Cursor ist 
ein blinkendes [L] geworden.) Drücken Sie, um sie in den Programmspeicher zu 
stellen, die Taste mit der Aufschrift ENTER. Schon geht sie hinauf! 

Bei Zeile 2® nicht anders: Drücken Sie 2, ®, | (auf die Taste, wo INPUT 
steht) und X: danach ENTER. Die Zeilen 30-59 sind ähnlich, aber beachten Sie, 
daß Sie das Zeichen ''=" erhalten, wenn Sie SYMBOL SHIFT niederdrücken 
und auf [L] tippen; das Zeichen "+" durch SYMBOL SHIFT und K]; das Komma 
durch SYMBOL SHIFT und N; STOP ist SYMBOL SHIFT plus A. Vergessen Sie 
nicht, jedesmal ENTER einzugeben, sobald eine Zeile richtig eingetippt ist. 

Wenn Sie sich an diese Anweisungen gehalten haben, steht jetzt das 
ganze Programm aufgelistet oben auf dem Bildschirm. Dort bleibt es auch ewig 
sitzen, wenn Sie nichts unternehmen. Das kommt daher, daß Computer nicht 
bloß Befehlen gehorchen, sondern im Grunde strohdumm sind. Selbst wenn 
ganz klar ist, was Sie von ihnen wollen, müssen Sie es ihnen trotzdem sagen. 
Drücken Sie also Taste R (was RUN ergibt) und dann ENTER, damit der 
Computer weiß, daß Sie mit dem Befehl fertig sind. 

Auf dem Bildschirm sehen Sie nun RUN [L], wobei das [[] blinkt. Wenn Sie 
ENTER drücken, verschwindet das wieder. 

Quer auf dem Bildschirm erscheint die Meldung "Verdoppeln‘'. Das ist die 
Antwort des Computers auf Zeile 10: PRINT "Verdoppeln’'. Das hat er recht 
schnell gemacht, und jetzt wartet er darauf, daß Sie /hren Teil von Zeile 2® 
leisten: INPUT x. Zur Erinnerung: Links unten auf dem Bildschirm steht ein [D). 
Es will von Ihnen erfahren, was x ist. 

Dazu geben Sie eine Zahl ein, gefolgt von ENTER. Versuchen Sie es mit 


2 (ENTER) 
Blitzschnell zeigt der Computer an 
2 4 


(und, in der linken unteren Ecke, eine Meldung ‘9 STOP Statement, 50:1”, 
über die wir uns noch nicht den Kopf zerbrechen wollen - sie bedeutet lediglich, 
daß der Computer die Aufgabe richtig bewältigt hat.) 

Versuchen Sie es noch einmal. Dazu brauchen Sie nur RUN, gefolgt von 
ENTER, zu drücken, und schon geht es wieder los. Wenn der Computer x 
anfordert, probieren Sie etwas anderes aus: Nehmen Sie 756.2912 und drücken 
ENTER, müßten Sie erhalten: 


756.2612 1512.5824 


Geben Sie noch ein paarmal RUN und probieren Sie verschiedene x-Werte mit 
INPUT aus. Ganz wahllos, etwa ®, 1, 2, 3,4. 

Das müßte Sie davon überzeugen, daß, gleichgültig, was Sie als x einge- 
ben, der Computer zwei Zahlen anzeigt: zuerst x und anschließend das Dop- 
pelte von x. 

Experimentieren Sie. Das muß zu Ergebnissen führen wie: 
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17 34 


21 42 
-b 19 
6 12 


Wie macht er das? 


Ich meine hier nicht im Detail, denn da kämen wir auf Hardware, Maschinen- 
sprache und ähnliche Komplikationen zu sprechen. Aber wie sollen Sie, der 
Programmierer, sich den Computer vorstellen, während er Ihr Programm 
“fährt”, wie man in der Fachsprache sagt? Was geht in dem Siliziumchip- 
Hirnchen vor? Wenn wir uns auf ein bißchen Vermenschlichung einlassen, ist 
das ungefähr so: 


10 PRINT "Verdoppeln” DO je, dakommen Befehle für 


20 INPUTx mich, die ich mir merken 

30 LETy=xt+tx muß. Mach mich lieber ran. 
40 PRINTx,y Bin neugierig, ob er 

59 STOP bald fertig ist. 

RUN ENTER Aha. Geht schon los. Wie war 


die erste Zeile? Aus dem 
Speicher holen: 19 PRINT 
“Verdoppeln’. Ich soll etwas 
anzeigen. Das ist ein Anfüuh- 
rungszeichen "; dann über- 
nehme ich, was folgt... 
Verdoppeln 
bis ich zum nächsten " kom- 
me, das mir sagt, ich soll 
mit dem Anzeigen aufhören. 
Sonst nichts mehr. Weiter 
zur nächsten Zeile: 2® INPUT x. 
Er wird mir eine Zahl ge- 
ben, die ich x nennen muß. 


Ich zeig ihm einen 
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[L] Cursor, um ihn dran zu erinnern. 
Na schön, ich warte. 
Arg langsam, diese Menschen. 

2 ENTER Ah, x ist 2. Was nun? 30 LET 
y=x+x.Dasheißt, ich muß x 
zu x addieren, also 2 + 2 be- 
rechnen. Und das Resultat y 
nennen. Also isty2 + 2 = 4. Näch- 
ster Befehl? 40 PRINT x, y. 


Ich muß x und y anzeigen, nämlich... 


Nächste Zeile? 50 STOP, Das 

wäre demnach alles. Ab- 

schließen mit einer Meldung... 
9 STOP Statement, 59: 1 


Die Späße brauchen Sie nicht wichtig zu nehmen: Sehen Sie, wie der Computer 
die Liste der Befehle einfach durchgeht und sie der Reihe nach befolgt? Er 
“weiß” nicht einmal, worum es bei dem Programm geht. Aber Sie, der Program- 
mierer, wissen es - es verdoppelt Zahlen. 

Die Aufgabe des Programmierers ist damit klar. Wenn Sie eine Aufgabe 
haben, die vom Computer bewältigt werden soll, müssen Sie eine Folge von 
Befehlen aufstellen, die, sobald sie ausgeführt sind, dieses Ziel erreichen. 

Dazu müssen Sie BASIC genauer kennenlernen. Ihr Spectrum wird recht 
schlaue Dinge tun, wenn Sie wissen, wie man mit ihm reden muß. Natürlich gibt 
es alle möglichen Verfeinerungen - ein gutes Programm muß nicht nur sein Ziel 
erreichen, sondern auch ökonomisch und klar sein. Mit den Verfeinerungen hat 
es aber noch Zeit. Die Hauptsache ist, Programme zu schreiben, die auch 
funktionieren. 

Fangen wir an. 
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2 Arıthmetik ın BASIC 


Grundlage aller Mathematik sind Addition, Subtraktion, Multipli- 
kation und Division. Für den Computer gilt dasselbe. Vernünftiger- 
weise beginnt man also mit der Erklärung für Arithmetik in BASIC. 


In Wirklichkeit ist das gelogen - es ist Algebra. Ich wollte Sie nur nicht er- 
schrecken. In fast jedem Programm, das Sie einmal schreiben wollen, sind 
algebraische Rechenoperationen enthalten, und sei es nur für Buchhaltung. 
Das ist also ein naheliegender Ausgangspunkt. 

Wie normale Algebra verwendet auch BASIC Buchstaben für “allge- 
meine” Zahlen. In der Fachsprache nennt man sie Variable — genauer, numeri- 
sche Variable. Das bedeutet aber lediglich, daß sie Zeichen sind wiex, y,z, a,b, 
c und so weiter, mit denen algebraische Ausdrücke wie x + y - z aufgestellt 
werden können. Der Computer kann dann, wenn Sie es ihm durch das Pro- 
gramm befehlen, ausrechnen, welche Werte x, y und z annehmen. (Beispiel: 
Wennx=14,y=3,z=9,dannistx+y-z=14+3-9=8.) Beim Spectrum 
können Sie für Variable kompliziertere Symbole verwenden als bloße Einzel- 
buchstaben, aber lange Namen vergeuden Speicherplatz. 

Es gibt ein paar kleine, aber wichtige Unterschiede zwischen BASIC- 
Algebra und gewöhnlicher Algebra. Die Zeichen + (plus), - (minus), und / (ge- 
teilt durch) sind die üblichen. (./. können Sie nicht verwenden.) Das Multipli- 
kationszeichen wird jedoch als Sternchen * geschrieben, so daß5 * 7 für5x 7 
steht, was 35 ergibt. Der nach oben zeigende Pfeil f bedeutet “zur Potenz 
erhoben”. Beispiel: 2 T 3 bedeutet, was ein Mathematiker als 2? schreiben 
würde, also 2 hoch 3 (oder 2 kubiert), mit dem Wert 2x2x2=8. 

Sie können Zahlen, Variable und diese arithmetischen Zeichen zu kompli- 
zierteren Ausdrücken verbinden. So ist 


a*x7T2+b*x+tc 


das bekannte ax? + bx + c des Mathematikers. 

Kapitel 3 der Einführungsbroschüre erklärt diese Dinge und weist auf 
einen sehr wichtigen Punkt zur Reihenfolge hin, in der das Gerät die Berech- 
nungen ausführt. Nehmen wir an, der Computer weiß beim obigen Ausdruck, 
daßa=4,x=5,b=3,c = 7. Siekönnten nun meinen, er berechne das Ergebnis 
folgendermaßen: 


a’rx=4+*+5=29, 
a*xt2=20972=409, 
a*x1?2+b=400 + b= 493, 
a*x172+b*x=403*x = 2015, 
a*x72+b*x+tc=2015 +c = 2022. 
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Das erhalten Sie, wenn Sie von links nach rechts vorgehen. Es entspräche aber 
nicht dem ax? + bx + c des Mathematikers, das hier den Wert 


4x52+3x5+7=100 +15+7=122 


hätte. Was ist also schiefgegangen? 

Der springende Punkt: Die gewöhnliche Algebra kennt viele Regeln 
darüber, welche Rechenoperationen zuerst auszuführen sind. (In der Schule 
hatte man sogar Merkwörter dafür, na lassen wir das...) Die Sprache BASIC 
besitzt ähnliche Regeln. Dort werden zuerst alle T ausgerechnet, dann alle * und 
/ und schließlich die + und -. Bestehen Zweifel, werden sie der Reihe nach 
von links nach rechts erledigt. Eina *x ? 2 + b*x + c wird demnach so 
berechnet: 


Zuerst die f: x72=512=25. 

Dann die *: a*x12=4+*25 = 100 
b’+x=3*5=15. 

Nun die +: a*x?2+b*x=100 + 15 = 115 


a*x72+b*x+tc=115+c=115+ 7=122. 


Sie sehen selbst, wieviel Ähnlichkeit das mit normaler Algebra hat. 

Wie in der Algebra wollen Sie manchmal einen Ausdruck berechnen, der 
diesen Regeln nicht auf natürliche Weise folgt. Die Lösung ist dieselbe: Sie 
benützen Klammern (). Jeder Ausdruck in Klammern wird als Ganzes vorweg 
ausgeführt. So würde 


(a*x)12 


berechnet werden als (4 * 5) f 2; das ergibt, wenn Sie den Teil in der Klammer 
vorweg auflösen, (2®) ? 2, also 400. 

Es gibt nur eine Art von Klammer (also nicht wie [] oder {} in der Algebra). 
Die anderen Klammern stehen zwar auf der Tastatur, können in Rechenaus- 
drücken aber nicht verwendet werden. Sie müssen also besonders vorsichtig 
sein, wenn Sie Klammern in Klammern setzen und etwa (3 +5*(a-b))T4 
schreiben, wo der Mathematiker [3 + 5 (a - b)]* schreiben würde. 

Die Hauptsache: Man muß sich darüber im klaren sein, daß das wirklich 
ganz wie gewöhnliche Algebra ist, nur mit ein wenig fremdartigen Symbolen. 


Wie man einer Variablen einen Wert zuteilt 


Das geschieht durch die LET-Anweisung (Taste L). Wenn Sie diese gebrau- 
chen, wo sie hingehört, erkennt der kluge Spectrum sie automatisch als LET und 
nicht als L (durch ein Verfahren, das "automatische Sytaxprüfung” genannt 
wird, was aber nur bedeutet, daß er ein Auge darauf hat, ob das, was Sie 
eintippen, Sinn ergibt). Eine Programmzeile von der Art 


40 LETx=5 
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sagt dem Computer: Die Variable x erhält den Wert 5 von jetzt an, und zwar so 
lange, bis ihm ein anderer Teil des Programms etwas anderes mitteilt. Probieren 
Sie folgendes Programm aus: 


19 LETa=4 
20 LETb=3 
30 LETc=7 
40 LETx=5 


50 PRINTa*xt2+b*x+c 


Wenn in dem Zwergköpfchen alles in Ordnung ist, werden Sie oben auf dem 
Bildschirm die Lösung 122 auftauchen sehen. 

Es gibt einfachere Wege, gerade zu dieser Lösung zu kommen: versuchen 
Sie 


10 PRINT4*-512+3*5+7 


(Sie können sogar die Zeilennummer weglassen, siehe dazu Kapitel 3 der 
Einführungsbroschüre. Sie sollen aber sehen, wie LET funktioniert.) 

Die rechte Seite eines LET-Befehls kann ein Ausdruck sein, von dem der 
Computer schon weiß, wie er ihn berechnen muß. So könnten Sie Zeile 59 des 
obigen Programms abändern, um eine neue Variable y zu definieren, die den 
Werta x?2+b*x+tchat: 


50 LETy=-a*’*xf2+tb*x+tc 
Fügen Sie 
60 PRINTy 


an, dann können Sie überprüfen, ob das richtig funktioniert. 


Beispiel: Fallende Körper 


Laut Galilei fällt ein Körper aus dem Ruhezustand unter dem Einfluß der 
Schwerkraft in einer Zeit von t Sekunden (rund) 5t? Meter. Um festzustellen, 
wie weit er in 17 Sekunden fällt, Können Sie das Programm 


18 LETt=17 


20 PRINT5+t?2 
verwenden. Als Ergebnis müßten Sie 1445 (Meter) erhalten. 
Wollen Sie die Lösung für einen anderen Zeitraum haben, so können Sie 


die erste Programmzeile verändern. Versuchen Sie es. Wie weit fällt der Körper 
In: 
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a 97 Sekunden? 

b 3 Sekunden? 

c 24.5779 Sekunden? 
d 


100001 Sekunden? 


Eine Verbesserung: Die INPUT-Anweisung 


Sie werden es vermutlich satt haben, die Zeile 10 immer wieder zu verändern. 
Ein zivilisiertes Programm würde den INPUT-Befehl nutzen, durch den der 
Computer Sie fragen kann, welchen Wert eine Variable annehmen soll. Tippen 
Sie 


1 INPUTt 
20 PRINT5+t?}2 


und geben Sie RUN. Es erscheint der [L]-Cursor, das heißt, der Computer wartet 
darauf, mitgeteilt zubekommen, welchen Wert t hat. Geben Sie 17 ein und dann 
ENTER; Sie erhalten die Antwort, die wir vorher schon hatten. Um aber nun a) 
bis d) beantworten zu können, brauchen Sie nur wieder RUN zu drücken, 
müssen aber den neuen Wert von t mitteilen. Probieren Sie das aus. 

Weiteres zu INPUT siehe Input/Output, Kapitel 5. 


Programmieraufgaben 


Hier drei Programme, die Sie schreiben sollen. Verwendet werden nur die 
Befehle, mit denen wir uns bislang befaßt haben. Es handelt sich um kleine 
Abwandlungen des Programms für fallende Körper. Wenn Sie hängenbleiben — 
am Ende des Kapitels finden Sie einen hilfreichen Tip! 


e Das Volumen eines Würfels von der Seite x wird bestimmt durch x? (das 
heißt, x ? 3 in BASIC, wenn x die Seite bezeichnet). Schreiben Sie ein 
Programm, mit dem x durch INPUT eingegeben und das Volumen des 
jeweiligen Würfels mit PRINT angezeigt wird. 

f Ein Eimer hängt an einem Seil, das um eine Winde von der Form eines 
Zylinders mit Radius r gewickelt ist. Für diesen Eimer wird nach den 
Lehrbüchern der Mechanik die Abwärtsbeschleunigung angegeben mit 


32 


1+r 


Zerbrechen Sie sich nicht den Kopf wegen der Mechanik, sondern schrei- 
ben Sie ein Programm, mit dem Sie durch INPUT r eingeben und mit 
PRINT die Beschleunigung a anzeigen können. 

g Im ZEDEX-Spectramarkt kosten ein Glas Honig DM 1.61, eine Packung 
Zxli-Würfel 50 Pfennig, eine Dose Waskas-Superfleisch 2 Mark. Schrei- 
ben Sie ein Programm, das mit PRINT den Gesamtpreis von h Gläsern 
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Honig, z Packungen Zxli-Würfeln und w Dosen Waskas-Superfleisch 
anzeigt, wenn Sie h, z und w eingeben. Für das, was ich Ihnen bisher 
gesagt habe, brauchen Sie drei INPUT-Befehle. 


Ein Vorgeschmack von Schleifen 


Mit den Befehlen FOR und NEXT können wir ein paar von den bisher genann- 
ten Ideen ausprobieren, ohne uns allzuviel Arbeit zu machen. (In vielen Kreisen 
wird die Vermeidung von Arbeit als "Faulheit”' bezeichnet, Programmierer be- 
sitzen normalen Sterblichen gegenuber aber einen Vorteil — sie können von 
“effizienter Programmierung” sprechen und zum Beweis auf Ersparnisse an 
Speicherplatz oder Zeit verweisen.) Über FOR/NEXT-Schleifen läßt sich vieles 
sagen, und einige Seiten später werden wir das auch in angemessener Länge 
tun. Fahren Sie zuerst dieses Programm, damit Sie sehen, was man damit 
machen kann. 


10 FORx=1TO2® 
20 PRINTx,x*x 
30 NEXTx 


Sie werden eine Liste der Zahlen von 1 bis 2® und eine entsprechende Liste ihrer 
Quadrate 1, 4,9... 361, 400 finden. Die FOR/NEXT-Befehle schicken dem 
Computer nämlich immer wieder durch die Folge von Befehlen zwischen ihnen 
(hier ist es nur Zeile 20) und setzt die Variable x der Reihe nach auf 1,2, 3..., 
bis 20 erreicht ist. Zeile 1® setzt diese Grenzen und löst die Schleife aus. Zeile 
30 schickt den Computer erneut durch die Schleife. 

Wenn Sie Zeile 20 dieses kleinen Programms verändern, können Sie alles 
Mögliche in Tabellenform bringen. Kubikwerte gefällig? Versuchen Sie es mit 


20 PRINTx,xt3 


Verändern Sie Zeile 20 der Reihe nach, wie unten angegeben, und beachten Sie 
die Unterschiede. Die sehr kleinen Veränderungen von einer Zeile zur nächsten 
sorgen dafür, daß der Computer die Algebra in unterschiedlicher Reihenfolge 
mit unterschiedlichen Ergebnissen bewältigt. Was berechnen die Programme in 
üblicher Algebra-Symbolik? 


h 20 PRINTx,1/x +1 
20 PRINTx,1/(x+1) 
j 20 PRINTx,1/1 +x 
k 20 PRINTx,1/(1 +x) 
| 20 PRINTx,1+1/x 


m 2® PRINTx,(1 +1)/x 

Beachten Sie schließlich noch, daß in diesen Programmen die Werte der Varia- 
ble nicht durch den Befehl LET zugeteilt werden. Stattdessen erhält der Com- 
puter die Zuteilung von der FOR-Anweisung. 
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Lösungen 


Fallende Körper 


a 47045 b 45 c 3020.3658 


5HWB1PH0MDNP. Lassen Sie sich von der scheinbaren Exaktheit nicht 
tauschen. Der Computer bietet keine Genauigkeit von zwölf Stellen. Er 
rundet die richtige Lösung ab, die 50001009905 lautet. 


Programmieraufgaben 
e 10 INPUTx 
20 PRINTx?3 
f 10 INPUTr 
20 PRINT32/(1 +3*r1f2) 
g 18 INPUTh 
20 INPUTz 
30 INPUT w 
40 PRINT61 *h+25*z + 32.5*w 


Ihr Programm braucht nicht genau so auszusehen, um richtig” zu sein. Vor 
allem ist es allein Ihre Sache, welche Symbole Sie für Variable wählen. Sie 
können auch die Algebra anders gestalten; bei e) ist nichts einzuwenden gegen 
20 PRINTx*x*x, und bei f) nichts gegen 20 PRINT 32 / (1 +3*r*r). 


Schleifen 

n 
x 

1 

l x+1 + 1 
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1+x (zuerst 1/1, also 1, dann wird x addiert.) 
wie i) 

wie h) 

2 


x 


3 DIE TASTATUR 


Jede Taste des Spectrum kann mehrere verschiedene Wirkungen 
hervorrufen. Hier eine kurze Einführung in die Tastatur. 


Wie vorhin schon erwähnt, ist die Spectrum-Tastatur oder das Keyboard sehr 
verfeinert, und was herauskommt, wenn man eine Taste drückt, hängt auf recht 
komplizierte Weise vom jeweiligen Zusammenhang ab. Sie werden sich bald 
daran gewöhnt haben, müssen aber einige Zeit dafür aufwenden, sich auf der 
Tastatur zurechtzufinden. 

Zweierlei beeinflußt die Folgen eines Tastendrucks: Einmal die Schaltung 
(Shift), die benützt wird, und zum anderen die Betriebsart oder der Modus, in 
dem der Computer sich befindet. 


Schaltungen 


Es gibt zwei Tasten mit den Aufschriften CAPS SHIFT und SYMBOL SHIFT. 
Hält man eine davon niedergedrückt und drückt gleichzeitig eine andere Taste, 
wird die Wirkung der letztgenannten Taste verändert. Exakt in welcher Weise, 
hängt vom Modus ab. Das wollen wir uns näher ansehen: 


Betriebsarten 


Der Modus ist der "innere Zustand’’ des Computers und wird angezeigt durch 
den Cursor. Es gibt fünf Betriebsarten mit den folgenden (blinkenden) Cursors: 


K Keyword mode = Schlüsselwort (Kennwort) -Modus 
L Lettermode = Buchstaben-Modus 

C Capitals mode = Großbuchstaben-Modus 

E Extended mode = erweiterter Modus 

G Graphics mode = Grafik-Modus 


Erreichen kann man sie auf folgende Weise: 


1 Normalerweise befindet sich der Computer im "L”’-Modus. 

2 Nach einer Zeilennummer oder zu Beginn eines direkt eingegebenen 
Befehls geht er automatisch in den "K”-Modus über. 

3 Um vom "L”- in den ''C"”-Modus zu gelangen, drücken Sie auf CAPS 
SHIFT und halten die Taste fest. Geben Sie sie frei, wenn Sie nach "L” 
zurückwollen. (Das ''C’’ sehen Sie nur, wenn Sie CAPS LOCK verwenden 
— übergehen Sie das zunächst.) 

4 Um vom "L’- in den "E"-Modus zu kommen, müssen Sie zugleich CAPS 
SHIFT und SYMBOL SHIFT drücken. Wiederholen Sie, um nach "L” 
zurückzugelangen. 

5 Um vom "L’- in den "’G”-Modus überzugehen, drücken Sie gleichzeitig 
CAPS SHIFT und Taste 9 (GRAPHICS). Wiederholen Sie, wenn Sie nach 
“L” zurückwollen. 
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Wie man was anzeigt 


Sehen wir uns irgendeine Taste in den unteren drei Reihen an, meinetwegen 
Taste ''R’. Sie sieht so aus: 


INT 


VERIFY 


Das INT ist grün, das < und VERIFY rot. 


Wenn Sie "r” eingeben wollen, drücken Sie diese Taste im Modus "L". 

Für “R’’ drücken Sie CAPS SHIFT und gehen in den "C”-Modus; nieder- 

halten und die Taste drücken. 

Für "RUN’” drücken Sie die Taste im Modus "K’. 

Für ”"<’’ müssen Sie in den Modus “L”; halten Sie SYMBOL SHIFT 

gedrückt und tippen Sie auf die Taste. 

Für INT’ gehen sie in den erweiterten Modus °E”; beide Shifttasten 

werden gleichzeitig gedrückt. Achten Sie auf den "E”-Cursor: Wenn Sie 

die Tasten zu lange gedrückt halten, schaltet er möglicherweise wieder 

nach "L’’ zurück. Lassen Sie die Shifttasten los und drücken Sie die Taste. 

6 Um "VERIFY’ einzugeben, gehen Sie wie bei 5) in den "E”-Modus und 
halten dann SYMBOL SHIFT niedergedrückt, während Sie auf die Taste 
tippen. 

7 Um das vom User wählbare Grafikzeichen zu erhalten, das "R’' entspricht 

(siehe das Kapitel über User-wählbare Zeichen), gehen Sie inden Modus 

“G” und drücken dann die Taste. 


 Pw N- 


Die oberste Tastenreihe 


Diese Tasten sind ein bißchen anders. Bei ihnen fehlt die Beschriftung mit 
Schlüsselwörtern (Modus "K”); stattdessen sieht man ein Grafikzeichen in 
Kästchenform. Uber den Tasten steht in grüner Farbe nichts, dafür gibt es 
Befehle in weißer Schrift. Das Hauptsymbol auf der Taste und die beiden roten 
Symbole funktionieren genau wie in den Reihen 2 bis 4. Bei den anderen geht 
es so: 


1 Um das weiße Symbol über der Taste zu erreichen, drücken Sie CAPS 
SHIFT. Es handelt sich um Steuerzeichen, die selbst nicht angezeigt 
werden. 


2 Um das Grafiksymbol zu erreichen, gehen Sie in den "G"-Modus und 
drücken Sie die Taste. 

3 Um das Grafikzeichen in Video-Inversion, also Negativschrift zu erhalten 
(wechselnd schwarz und weiß oder, allgemeiner, INK und PAPER), 
gehen Sie in den "G-"Modus, drücken CAPS SHIFT nieder und tippen 
auf die Taste. 
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4 Die Farben sind nur Merkhilfen. Beispielsweise ist der Code für GREEN 
(Grün) 4. 

5 Tatsächlich können Sie sogar noch ein bißchen mehr machen; siehe 
Handbuch, Kapitel 16. Ich habe auch noch nicht erwähnt, was CAPS 
LOCK, TRUE VIDEO und INVERSE VIDEO bewirken. Statt die Verwir- 
rung noch mehr zu vergrößern, überlasse ich das Experimentieren mit 
diesen Tasten Ihnen, weil Sie die nicht wirklich brauchen. 


Fertigprogramme 


Am Ende dieses Buches finden Sie eine Anzahl von Programmlistings, die auf 
Seite 135 beginnen. Sie können jederzeit eines dieser Listings eingeben und das 
Programm fahren, ob Sie die Befehle dort nun verstanden haben oder nicht. Sie 
brauchen die Zeilen nur über das Keyboard einzutippen, sorgfältig darauf zu 
achten, daß keine Fehler gemacht worden sind, und RUN zu drücken, gefolgt 
von ENTER. Wir hoffen jedoch, daß Sie bis zum Schluß des Buches verstanden 
haben, wie diese Programme funktionieren; damit man aber rasch selbstsicher 
wird, ist der Versuch sinnvoll, anderer Leute Programme zu fahren. So kann man 
sich auch eine Vorstellung davon machen, was mit dem Spectrum alles möglich 
ıst. 

Die Programme sind in der Regel von Programmhinweisen begleitet, die 
verschiedene Eigenheiten erklären, hier und dort Veränderungen des Pro- 
gramms vorschlagen oder auf verwandten Gebieten Aufgaben für Sie bereithal- 
ten. Die Programme laufen aber, falls keine Eingabefehler gemacht worden 
sind, ob Sie die Hinweise ganz verstanden haben oder nicht. Die meisten 
Programme veranschaulichen bestimmte Methoden, die in diesem Buch erklärt 
werden, aber manche nutzen auch Ideen, für deren genaue Erläuterung mir der 
Platz fehlt. Auf jeden Fall gehe ich davon aus, daß Sie nicht nur diesen Band 
hier, sondern auch das Handbuch von Sinclair lesen. 
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4 HIINININILFEEEEEEI! 


Läuft nicht so gut, wie Sie gehofft hatten? Vielleicht brauchen Sie 
Hilfe. 


Was tut man, wenn etwas nicht richtig klappt? 

Im allerschlimmsten Fall ziehen Sie kurz den Stromstecker heraus. Dann bricht 
das Programm zusammen und alles, was Sie eingegeben haben, wird gelöscht 
— gleichzeitig sind aber auch alle Schwierigkeiten behoben (es sei denn, sie 
lagen in der Hardware, dann hätten Sie Pech gehabt). In der Regel gibt es aber 
bessere Methoden. 


a 


c1 


c3 
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Wenn Sie in einer Programmzeile etwas Falsches eingeben: Verwenden 
Sie die mit Pfeilen bezeichneten Tasten 5 und 8 (denken Sie daran, daß 
Sie CAPS SHIFT brauchen), um den [L]-Cursor knapp an dem Störenfried 
vorbeizuführen, und löschen Sie mit DELETE (Taste ® mit CAPS SHIFT). 
Wenn Sie eine Zeile verändern wollen, die schon im Programm steht: 
Um sie ganz zu löschen, schreiben Sie ihre Zeilennummer und drücken 
ENTER. 

Im anderen Fall führen Sie den > -Cursor mit 6 und 7 an den Zeilen hinauf 
und hinunter und drücken anschließend EDIT, um die Zeile dort hinunter- 
zuholen, wo daran gearbeitet werden kann. Fahren Sie dann fort wie 
unter a). 

Diverse Kniffe: Es macht arge Mühe, den Cursor Zeile für Zeile von Zeile 
19 bis Zeile 53® herunterzuführen. Finden Sie eine Zeilennummer kurz 
vor 539, die Sie nicht verwendet haben, etwa 529. Geben Sie 529 ENTER 
ein und drücken Sie EDIT. Sie werden sehen, daß Zeile 530 herunter- 
kommt. (Warum tut sie das?) 

Wenn das Programm steckenbleibt und sich nichts zu rühren scheint: 
Das kommt während eines Debuggingdurchgangs oft vor. Das Letzte, 
was Sie wollen, wäre, alles zu löschen und wieder neu einzugeben; 
außerdem spricht viel dafür, daß doch wieder dasselbe eintritt. 

Wenn das Programm noch läuft, Sie es aber anhalten wollen: Drücken Sie 
CAPS SHIFT und BREAK. 

Wenn es bei einem numerischen INPUT-Befehl steckenbleibt: BREAK 
funktioniert zwar nicht, aber STOP. Wenn Sie aus Versehen dort schon 
etwas stehen haben, erhalten Sie ständig einen [?]-Cursor für einen Syn- 
taxfehler, eine in hohem Maß ärgerliche Sache. Löschen Sie das falsche 
Zeug mit DELETE und drücken Sie anschließend STOP. 

Wenn es bei einer Zeicheneingabe hängt - [LJ-Cursor: drücken Sie DE- 
LETE und dann STOP. 

Wenn das Programm zwar läuft, aber nicht das Richtige tut: Lesen Sie die 
Kapitel über DEBUGGING (Fehlersuche). 


5 INPUT/OUTPUT 


Es gibt viele nützliche Wege, Information in einen Computer einzu- 
geben oder sie herauszuholen und gut organisierte Displays zu 
produzieren: InputiOutput. 


Am INPUT-Befehl ist viel mehr dran, als ich bisher verraten habe. So können Sie 
auf einmal mit INPUT mehrere Zahlen eingeben. Ein besserer Weg, die Program- 
mieraufgabe g) in Kapitel 2 zu lösen, ist dieser: 


10 INPUT h, z, w 
20 PRINT61 *h + 25*z + 32.5 *w 


Wenn Sie das mit RUN fahren, werden Sie feststellen, daß Sie nach jeder der 
drei INPUT-Eingaben ENTER drücken müssen. Die Zahlen werden vorüberge- 
hend in der untersten Reihe (oder den Reihen) angezeigt, bis alle drei eingege- 
ben sind. 

Die Beistriche, die sie trennen, steuern außerdem die Stellen, wo die 
Zahlen angezeigt werden: Sie gehen abwechselnd in die Spalten ® und 16. 
Wenn Sie statt der Beistriche Strichpunkte ‘;’” nehmen, sehen Sie, daß die 
Eingaben der Reihe nach ohne Zwischenräume angezeigt werden. Um Zwi- 
schenräume zu erhalten, müssen Sie diese im INPUT-Befehl definieren: 


10 INPUT Hh; "[_]"; z "LI"; w 


wo ein Kästchen [_] einen Zwischenraum anzeigt. 

Sie können mit einer Eingabe auch Aufforderungszeichen anzeigen: Hin- 
weise, die Sie daran erinnern, welche Eingabe erforderlich ist. Dazu führen Sie 
den Hinweis in Anführungszeichen als Teil der INPUT-Anweisung auf. Bei- 
spielsweise verändern Sie Zeile 1® oben zu: 


10 INPUT “Honig”, h 
12 INPUT "Zxli Würfel”, z 
14 INPUT "Waskas’, w 


Sie können als Teil einer einzelnen INPUT-Anweisung kompliziertere Kombi- 
nationen solcher Befehle verwenden; was gemeint ist, läßt sich aber erkennen. 


Output 


Wenn wir bisher Output- (also Ausgabe)-Daten, etwa Zahlen, mit PRINT 
anzeigten, haben wir dem Computer die Entscheidung überlassen, wo er sie 
anzeigen wollte. Nun ist das nicht immer praktisch; es führt auch nicht immer zu 
schönen Displays. Wenn Sie die Anzeigeposition verändern wollen, verwenden 
Sie PRINT AT. 
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Für Anzeigezwecke stellt man sich das Bildschirm-Display aufgeteilt in 
22 Reihen von oben nach unten mit den Nummern 0-21 und 32 Spalten von 
links nach rechts mit den Nummern ®-31 vor. Im späteren Kapitel GRAFIK 
veranschaulicht das ein Diagramm, hier zunächst aber ein Programm, mit dem 
Sie experimentieren können. 


19 INPUT "Reihe”, r 

20 INPUT "Spalte”, s 
30 PRINTATr,s; "DM" 
40 GOTO1P® 


Damit läßt sich buchstäblich Geld drucken! Probieren Sie verschiedene Werte 
für die Nummern von Reihen und Spalten aus und sehen Sie sich an, wo die 
Deutschen Mark angezeigt werden. 

Um eine bestimmte PRINT-Position auszuwählen, geben Sie im Befehl 
natürlich r und s als Zahlen an. Wenn Sie eine Nachricht in die unterste Reihe 
setzen wollen, beginnend nach fünf Leerstellen, (also in Spalte 4, weil die 
Zahlen mit ® anfangen!), schreiben Sie 


10 PRINT AT 21, 4; "Nachricht" 
Um ungefähr in die Bildschirmmitte zu kommen: 
18 PRINTAT 10, 12; “Nachricht” 


Und so weiter und so fort. 

Wenn Sie die AT-Anweisung nicht verwenden, geht der Computer auto- 
matisch einfach zur nächsten’ Position weiter. Wo das ist, hängt von dem 
jeweils Angezeigten ab. Wenn der letzte PRINT-Befehl nicht mit ";” oder ‘,” 
aufhört, geht der Computer weiter zur nächsten Zeile. Ein ";” führt ihn zur 
nächsten Stelle in derse/ben Reihe, ein "," zum nächsten verfügbaren Platz in 
Spalte ® oder 16, je nachdem, welcher als erster frei ist. 

Doppelpunkt und Komma haben bei INPUT-Befehlen ähnliche Wirkun- 
gen. 

In Verbindung mit diesen automatischen Merkmalen ist der PRINT-Be- 
fehl dann sehr nützlich, wenn Sie Daten in organisierten Kolonnen schreiben 
wollen. Beispiel: Mit dem folgenden Programm können Sie ein privates Tele- 
fonverzeichnis anlegen. 


10 INPUT Name’; n$ 

20 INPUT "Amt’, a$ 

30 INPUT "Nummer"; t 

40 PRINTTAB 1;n$; TAB 15; e$; TAB 25; t 
50 GOTO1P® 


24 


(TAB ist Taste P im erweiterten Modus. Die Dollarzeichen stehen für Strings 
und werden später in einem eigenen Kapitel erklärt.) Fahren Sie mit RUN und 
geben Sie auf Anforderung als INPUT-Daten etwa ein: 


Fritz Timbuktu 44399 
Karl Basel 12345 
Polizei München 119 


Sie sehen, wie die Daten säuberlich in drei Kolonnen angeordnet werden. (Zum 
Anhalten drücken Sie bei einer Zahleneingabe STOP, bei einer Zeichenstring- 
eingabe zuerst DELETE und dann STOP.) 


Aufgabe 


Schreiben Sie ein Programm, mit dem Sie über INPUT 22 Zahlen eingeben 
können. Zeigen Sie sie mit PRINT in diagonaler Folge von oben links nach 
unten rechts an (Sie verwenden dabei etwas in der Art von PRINT ATi, i; n). 
Überlegen Sie dann, wie das von oben rechts nach unten links geht (PRINT AT 
I, 21-i). 
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6 SCHLEIFEN 


Zehne lagen im Bettchen, und der kleinste rief: 
“Rollt alle rüber, einer liegt schief!” 

Alle rollten rüber, einer fiel hinaus. 

Da war es noch nicht aus. 

Neune lagen im Bettchen, und... 


Mit den Befehlen FOR und NEXT können Sie den Computer veranlassen, einen 
Befehl so oft zu wiederholen, wie Sie das verlangen. Das klingt vielleicht nicht 
maßlos interessant, aber in Wahrheit ist das eine der nützlichsten Waffen im 
Arsenal des Programmierers. Siekönnen nämlich durch Variable verändern, was 
jeder Schritt bewirkt. 

Wir haben schon gesehen, wie wir mit FOR/NEXT-Schleifen Tabellen von 
Werten einer Funktion wie x 3 anzeigen können. Hier eine nicht ganz so simple 
Anwendungsart. 

Die Fakultätsfunktion n! wird, wie jeder Schüler weiß, definiert durch: 


n! =n (n-1) (n-2) (n-3)...3x2x1. 


Sie erhalten die Zahl der Möglichkeiten, n Gegenstände der Reihenfolge nach 
zu ordnen. Beispiel: 3! = 3x 2x 1 = 6; und die Buchstaben abc können auf 
sechsfache Weise angeordnet werden: abc, acb, bac, bca, cab, cba. 

Zur Berechnung von n! können wir Schleifen verwenden. Dabei geht es 
darum, in Stufen zu rechnen: 1;1 x 2;1x2x3;1x2x3x4;... und zwar so 
lange, bis die größte Zahl n ist. Jedesmal nehmen wir das Resultat des vorheri- 
gen Schritts und multiplizieren mit der nächsthöheren Zahl. Das ist genau der 
Vorgang, den man bei einer Schleife braucht. Die Folge von Anweisungen 


19 LETi=1 

20 FORkK=2TOn 
30 LETi=i*k 

40 NEXTk 


hat denn auch dieselbe Wirkung. 

Was bewirkt das Programm? Und wie macht es das? Zeile 10 setzt einen 
Startwert für die Variable i fest. Zeile 20 weist den Computer an, nachfolgende 
Zeilen immer wieder auszuführen und k der Reihe nach die Werte 2, 3,4,5..., 
n zuzuteilen. Zeile 40 sagt ihm, wann er das Ende dieser Befehle erreicht hat und 
wieder zum Anfang der Schleife zurückkehren soll. Nach dem ersten Durch- 
gang nimmt er also k = 2 an, und Zeile 3® berechnet 


i=i*rk=1x2 


Beim nächstenmal ist k zu 3 geworden und i zu 1 x 2, also wird i * k berechnet, 
was nun 1 x 2x 3 ergibt. Das nächstemal hat k den Wert 4, gerechnet wird x 
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2x3x4. Und das immer so weiter bis zum letzten Schritt, wenn k zun geworden 
ist und der Computer i= 1x2x3x4x...x.nrechnet. Dank der in Zeile 2® 
festgelegten Grenzen weiß er dann, daß die Schleife beendet ist. 

Das berechnet für Sie aber immer noch nicht n!, weil das Programm keine 
Anweisungen dafür enthält, was n ist, oder dafür, daß das Ergebnis angezeigt 
werden soll. Sie müssen die Schleife also in ein größeres Programm einbetten: 


5 INPUTn 
18 LETi=1 
20 FORk=2TOn 
30 LETi=i*k 
40 NEXTK 
50 PRINT "Fakultät []; n; "[_] ist [J"; i 


(Zeile 50 dient nur für eine schönere Anzeige; Sie erhalten Ausgaben wie 
Fakultät 6 ist 729 


Beachten Sie die als |_] dargestellten Leerräume, damit es hübsch aussieht.) 


Wie Kaninchen sich vermehren 


Um 1220 kam ein gewisser Leonardo von Pisa mit dem Spitznamen Fibonacci 
(Sohn der guten Laune) auf ein interessantes Problem in Zusammenhang mit 
Kaninchen. 

Wenn ein Kaninchenpaar einmal im Monatein Paar Nachkommen hervor- 
bringt und es einen Monat dauert, bis die Nachkommen fruchtbar werden, und 
wenn Sie mit einem Paar anfangen - wie sieht das Wachstum dann aus? Der 
Einfachheit halber gehen wir davon aus, daß die Produktion jeden Monat gleich 
ist, und daß jedes Paar aus einem Männchen und einem Weibchen besteht. 


Eine Tabelle kann hier von Nutzen sein: 


Monat Zahl der prod. Paare - | Zahl der neuen Paare 


Im Monat ® haben wir 1 produzierendes Paar, also Eintrag 


\) 1 \) 

Im Monat 1 erhalten wir nur 1 neues Paar: 

1 1 1 

Im Monat 2 erhalten wir 1 neues Paar, und das vorherige neue Paar wird 
produktiv: 

2 2 1 
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Monat Zahl der prod. Paare | Zahl der neuen Paare 


Im Monat 3 sind sie alle produktiv, und wir erhalten 2 neue Paare: 


3 3 2 
und so weiter: 

4 5 3 
5 8 5 
6 13 8 
7 21 13 


Wir kriegen also eine ganze Menge Kaninchen zusammen, was ja nicht weiter 
verwunderlich ist. 

Soll die Gesamtzahl der Kaninchenpaare im Monat m also f (m) sein, so 
haben wir f (d) = 1,f(1) =2,f(2) =3,f(3) = 5,f(4) = 8, und so weiter. 

Gehen wir allgemeiner vor. Nehmen wir an, im Monat m hätten wir p 
produzierende Paare und n neue Paare. Im nächsten Monat werden sie alle 
produktiv, was p + n produzierende Paare ergibt; die p produzierende Paare 
liefern uns p neue Paare. Die Tabelle hat also zwei aufeinanderfolgende Zeilen, 
die so aussehen: 


Monat Zahl der prod. Paare | Zahl der neuen Paare 
m p n 
m+1 ptn p 


Diese Tabelle läßt erkennen, wie wir mit Hilfe von Schleifen f (m) berech- 
nen können. Es geht darum, daß wir, um vom Monat m zum Monat m + 1 zu 
kommen, das alte p inp + n und das alte n in p verwandeln müssen. Folgendes 
funktioniert: 


19 
20 
30 
40 
50 
69 
70 
8 
99 
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LETp=1 

LETn=® 

INPUT m 

FORt=1TOm 

LETc=p 

LETp=p+tn 

LETn=c 

NEXTt 

PRINT "f (;m;”) DJ ist U"; p+n 


Wenn Sie sich näher damit befassen, werden Sie sehen, daß das genau den 
Schritten entspricht, mit denen die Tabelle aufgebaut wurde. Die Zeilen 10 und 
20 setzen die Ursprungswerte für p und n. Zeile 30 will wissen, für welchen Wert 
von m wir f (m) wollen. Die Zeilen 49 bis 80 durchlaufen eine Schleife, die 
aufeinanderfolgende Zeilen der Tabelle generiert. Beachten Sie Zeile 59, die den 
alten WNert von p für die Verwendung in Zeile 7® in Erinnerung behält und ihn c 
nennt. (Wenn Sie das nicht täten, würde Zeile 60 p zu früh verändern, und Zeile 
70 würde den falschen Wert für n liefern.) 

Die Zahlen f (m) werden Fibonacci-Zahlen genannt. Wenn Sie bemerken, 
daß die Spalten p und n in der Tabelle dieselben Zahlen enthalten, nur um eine 
Zeile verschoben (warum?), werden Sie sehen, daßf (m + 2) =f(m+ 1) +f 
(m), das heißt, jede Fibonacci-Zahl ist die Summe der beiden vorangegange- 
nen. 

Was ist der Wert von f (14)? Und der von f (77)? 


Verschachtelte Schleifen 


Es kommt noch besser: Sie können Schleifen in Schleifen oder sogar Schleifen 
innerhalb von Schleifen in Schleifen setzen (falls der Speicherplatz reicht). Sie 
würden staunen, wenn Sie wüßten, wie oft das notwendig ist. 

Beispiel: Nehmen wir an, Sie wollen eine Tabelle von Werten der Fakul- 
tätsfunktion anzeigen. Sie können eine Schleife nehmen, wie sie auf Seite 17 für 
x T 3 steht, aber dann brauchen Sie eine zweite Schleife für die Berechnung 
von n!. Sie erhalten also etwas in der folgenden Art: 


5 FORn=1TO2® 


18 LETi=1 

20 FORk=2TOn 

30 LETi=i*k innere Schleife äußere Schleife 
40 NEXTk 

50 PRINTn,i 

60 NEXTn 


Beachten Sie, daß die Schleife "FOR n/NEXT n” völlig außerhalb der von "FOR 
k/NEXT k” steht. Das muß sein, damit das überhaupt Sinn ergibt - genau wie bei 
Klammern. Ein Ausdruck a + b (b - 2c) + d ergibt sehr wohl Sinn, nicht aber 
[a + (b - 2c]) + d. Vertauschen Sie einmal die Zeilen AD und 60 und sehen Sie 
sich an, was dabei herauskommt. Bringt nicht viel, wie? Der Haken: Der Spec- 
trum akzeptiert und fährt zwar Programme mit falsch verschachtelten Schleifen, 
aber die Ergebnisse entsprechen natürlich nicht dem, was Sie gewollt haben. Er 
bringt keine Fehlermeldung, also Vorsicht! 
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Schrittgroöße 


Wenn Sie einfach FOR i = 1 TO 20 schreiben, unterstellt der Computer, daß die 
Variable i die Werte 1, 2,3,4,5,..., 19, 20 annehmen soll. Das heißt, er geht 
davon aus, daß Sie in Schritten der Größe 1 vorgehen. 

Das brauchen Sie aber nicht zu tun. Sie können eine andere Schrittgröße 
dadurch setzen, daß Sie die Taste STEP verwenden. Beispielsweise läßt die 
Anweisung 


18 FORj= -3TO3STEP.5 


j die Werte -3, -2.5, -2, -1.5, -1, -®.5, ®, 0.5, 1, 1.5, 2, 2.5, 3 durchlaufen. In 
gleicher Weise durchläuft 


10 FORj=3TOA4STEP .01 


die Werte 3, 3.01, 3.02, 3.03... in Hundertstelschritten, bis es mit 3.98, 3.99, 
4 aufhört. 
Sie können mit STEP auch abwärtsgehen: 


FORj = 19 TO9STEP -1 


läßt j die Folge 19, 9, 8, 7, 6, 5, 4, 3, 2, 1, ® durchlaufen. Erinnert Sie das an 
etwas? Fahren Sie dieses Programm: 


10 FORj=1®TOPSTEP -1 
20 PRINTj 

30 NEXTj 

40 PRINT "ABHEBEN!" 


Nicht gerade das Neueste, aber immerhin... 
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7 DEBUGGING | 


Es heißt, der anschauliche Ausdruck "die Bugs (Insekten) heraus- 
holen” sei in der Anfangszeit der Computerentwicklung entstan- 
den, als Insekten in die Maschinen krochen und Kurzschlüsse ver- 
ursachten. Wenn heutzutage ein Computer versagt, liegt es mei- 
stens am Programmierer. Um das zu beheben, müssen Sie trotzdem 
etwas verstehen von Debugging. 


Wie alle Programmierer sehr bald erfahren, ist es eine harte Tatsache des Lebens, 
daß Programme kaum jemals funktionieren - jedenfalls nicht beim ersten Lauf. 
Das Verfahren, die Fehler in einem Programm zu beseitigen, nennt man 
Debugging, zu deutsch Fehlersuche oder F-Beseitigung. Es ist wichtig, syste- 
matisch an diese Sache heranzugehen, weil sogar bei einem kleinen Programm 
die Fehlerquelle nicht unbedingt leicht zu finden ist. Und es gibt nur wenig, was 
ärgerlicher sein kann als Programme mit Fehlern, die sich nicht finden lassen. 
Sehen wir uns zunächst einmal die Fehlerarten an, die auftreten können. 
Grob gesprochen, zerfallen sie in zwei Gruppen: Syntaxfehler und Ab/auffehler. 


Syntaxfehler 


Das sind Fehler, die der Computer sofort erkennen kann, wenn Sie sie eingege- 
ben haben. Beispiel: Angenommen, ich tippe die Zeile 


FORp=1-7 


in der irrigen Meinung, das Symbol ""-"" könne als Entsprechung für "TO" 
gelten. (Das ist, wenn Sie so wollen, ein Fehler im Gebrauch der Grammatik der 
Sprache - daher der Ausdruck ""Syntax’'.) 

Der Spectrum ist in diesem Fall für Anfänger besonders hilfreich. Er läßt 
zwar zu, daß Sie das Symbol "'—-"" eingeben, erkennt aber, daß es keine Um- 
stände gibt, unter denen eine vollständige Programmzeile als 50 FORp = 1 - 
7 erscheinen kann, zeigt ein ?]-Hinweissymbol (um mitzuteilen, daß ein Syn- 
taxfehler vorliegt) und weigert sich, die Zeile anzunehmen, bis das anstößige 
"-” ersetzt wird. (Viele weit verbreitete Mikrocomputer erlauben ohne weite- 
res, daß Sie in ein Programm solche falschen Befehle einstreuen, und erheben 
erst Einwände, wenn Sie es fahren wollen. Einem erfahrenen Programmierer 
macht das nichts aus, aber der Anfänger neigt zu solchen Fehlern, und es spart 
viel Zeit, wenn man sofort auf sie aufmerksam gemacht wird.) 

An diesem Punkt mögen manche Leser von einer Frage geplagt werden, 
die wir so formulieren könnten: '"Wenn der Spectrum schon weiß, daß das 
einzige, was nach der "1" in Anweisung 59 erscheinen kann, das Schlüsselwort 
“TO” ist, warum setzt der Computer das '"TO’ dann nicht von selbst ein?” 

Die Antwort: Soviel, daß er das tun könnte, weiß er nun auch wieder 
nicht. Auf die 1 könnte beispielsweise eine andere Ziffer folgen, wie in 


569 FORp=12TO49 
31 


Es gibt noch andere, kompliziertere Möglichkeiten. Der Befehl 
50 FORp=1 -7T05 


ist zulässig und bedeutet dasselbe wie 50 FORp = - 6 TO5. 
Der [?]Hinweis kann schon auftauchen, bevor Sie eine Zeile fertigge- 
schrieben haben. Beispiel: 


20 LETe*s=q 


Der Computer erwartet nach e ein "=""-Symbol - oder einen anderen Buchsta- 
ben oder eine Zahl - also stellt er den ?J-Hinweis vor das "'*", allerdings erst, 
nachdem ENTER gedrückt worden ist. 

Die Regel bei Syntaxfehlern lautet also: Achten Sie auf den [?7]-Hinweis. 
Wenn er erscheint, liegt der Grund meistens ziemlich klar. Wenn nicht, verglei- 
chen Sie die Anweisung, die Sie schreiben, mit den entsprechenden Abschnit- 
ten des Handbuchs. (Eine Fehlerquelle, die gelegentlich Verwirrung stiftet, tritt 
dann auf, wenn Sie versehentlich ein Schlüsselwort ausschreiben, statt die 
Spezialtaste dafür zu benützen. Beispiel: Wenn Sie statt des Schlüsselworts 
“TO” die beiden Buchstaben "T’’ und ''O’ eintippen. Der Computer nimmt das 
nicht an, obwohl auf dem Bildschirm kein Unterschied zu erkennen ist.) 


Ablauffehler 


Es gibt viele Arten von Fehlern, die auftreten können, wenn ein Programm 
gefahren wird. Ich hatte einmal mit einer Computerroutine zu tun, die wegen 
eines recht versteckten Fehlers nur bei Programmen mit einer geraden Zahl von 
Zeichen funktionierte; bevor das behoben wurde, konnte man es dadurch 
umgehen, daß man an einer unschädlichen Stelle bei allem, was nicht lief, ein 
zusätzliches Zeichen anfügte! 

Es ist von größerem Nutzen, konkrete Beispiele möglicher Fehler zu 
geben, als sie allgemein aufzuführen. Sehen wir uns zunächst einmal den 
folgenden Codeteil an: 


10 FORp=-5TO05 
20 LETa=1ß/p 

30 PRINTa 

40 NEXTp 


Jede Zeile ist absolut zulässiges BASIC, es würden keine Syntaxfehler ange- 
zeigt werden. Das Programm läuft auch ganz richtig an, sobald RUN gegeben 
wird, und zeigt auf dem Bildschirm 


-2 d.h. 19/(- 5) 
-2,5 d.h. 10 /(-4) 
-3.3333333 d.h. 10 /(- 3) 
-5 d.h. 10 /(- 2) 
-19 d.h. 19/(-1) 
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Dann hält es aber an mit der Fehlermeldung 
6 Number too big, 20:1 (Zahl zu groß) 


Hier ist das Problem ziemlich klar — auch ohne ein Nachschlagen der Fehler- 
nummer im Handbuch. Erstens zeigt die Meldung, daß der Computer Einspruch 
gegen Zeile 20 erhebt, die da lautet 


20 LETa= 1ß/p 


Zweitens ist diese Anweisung schon mehrmals ohne Widerspruch ausgeführt 
worden. Demnach muß das Problem bei einer der Größen liegen, die sich 
verändern, also der Wert von a oder p. Der Wert von p, der eben erfolgreich 
behandelt wurde, ist -1, der laufende Wert von p also ®. Mit anderen Worten: 
Der Computer versucht 1®/® zu rechnen, was unendlich ist (oder nicht nach 
Geschmack definiert) und demnach nicht bewältigt werden kann, gleichgültig, 
wieviel Speicherplatz das Gerät für die Lösung bereitstellt. 

Sie sind zu dieser Schlußfolgerung vermutlich längst gelangt, bevor Sie 
die (ziemlich weitschweifige) Analyse zu Ende gelesen hatten, aber ich benütze 
dieses einfache Beispiel dazu, die Arten von Hinweisen zu veranschaulichen, 
auf die Sie achten sollten, wenn Sie mit einem Fehler nicht zu Rande kommen. 


1 Finden Sie die anstößige Zeile (die Nummer nach dem Komma in der 
Schlußmeldung). 
2 Stellen Sie fest, ob diese Anweisung mindestens einmal ausgeführt wor- 


den ist, bevor die Fehlermeldung entstand. (Wenn ja, liegt das Problem im 
bestimmten Wert einer der Variablen in dem Augenblick, als der Fehler 
auftrat.) 

3 Nutzen Sie die Meldung, um einen weiteren Hinweis zu erhalten. In 
unserem Beispiel ist das "Nummer too big’. Beachten Sie, daß die Mel- 
dung nicht genau mitteilt, was geschehen ist, (also nicht etwa "Versuch, 
durch Null zu teilen”), so daß es nicht immer genügt, sich einfach eine 
Fehlermeldung anzusehen, in der Hoffnung, sie werde genau erklären, 
was passiert ist. 


Zur Form der Fehlermeldungen des Spectrum sind noch zwei Dinge zu sagen. 

Erstens: Sie beginnen mit einer Zahl oder einem Buchstaben (hier 6), 
wobei es sich nur um ein Kennzeichen handelt, das sich auf einen Eintrag in 
Anhang B des Handbuchs bezieht (oder Seite 192). Dieser Eintrag hilft Ihnen 
vielleicht bei der Prüfung, was schiefgegangen ist, weiter — oder auch nicht. In 
diesem Fall sagt das Handbuch: "Die Berechnungen haben zu einer Zahl 
geführt, die größer ist als rund 19°, was sich für mich nicht viel anders anhört 
als "Number too big...” 

Zweitens: Am Ende der Meldung, nach dem Doppelpunkt, steht eine 
Zahl, die normalerweise 1 ist. Das bezieht sich auf "Mehrfachbefehl-Zeilen”, 
wo eine einzige Zeile mehr als einen Befehl enthält. Diese Methode haben wir 
bisher noch nicht verwendet; Einzelheiten dazu finden Sie in Kapitel 9 über 
"Verzweigungen’. Grob gesprochen, geht das so, daß Sie mehrere Befehle in 
eine einzige Zeile setzen können, getrennt durch Doppelpunkte. Diese letzte 
Zahl der Meldung teilt Ihnen mit, welcher Befehl der Sünder ist. Also bedeutet 
20:1 "der erste Befehl in Zeile 20°, und 20:3 würde sich auf den dritten 
beziehen. 
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Das scheint sehr vernünftig zu sein (und ist es auch), aber wenn man 
nicht aufpaßt, kann hier Verwirrung entstehen. Der Grund: Der Spectrum be- 
trachtet jede "natürliche Unterbrechung” in der Folge der Anweisungen (wie 
etwa THEN) als Beginn einer neuen ""Anweisung” für diesen Zweck. Demnach 
würde die Zeile 


19 IFp/f®=2THENLETp=p+1 
die Meldung 
6 Number too big, 19: 1 


hervorrufen. 
Stünde dort aber 


19 IFp=2THENLETp = p/® 
dann bekämen Sie 
6 Number too big, 190: 2 


zu sehen, weil der Fehler im zweiten Teil des Befehls steckt. 
Übrigens erklärt das die seltsamen Meldungen, die Sie erhalten, wenn 
nichts fehlgeht. Tippen Sie beispielsweise LIST; dann erhalten Sie 


0 O.K.0:1 
und das heißt 


1) Meldecode ®: Der Computer hat getan, was von ihm verlangt 
wurde, und ist auf keine Probleme gestoßen. 

O.K. Knappere Fassung des Obigen. 

1) Er hat eben ""Zeile 9’ ausgeführt, was nichts anderes heißt, als daß 
der Befehl keine Zeilennummer besaß. 

1 Es war der erste Befehl in dieser Zeile. 


Das Problem der Teilung durch Null taucht verhältnismäßig oft auf, nicht immer 
unbedingt in so auffälliger Weise, wie hier dargestellt. Beispiel: 


30 INPUTp,q,r 
409 LETa=(p+q=-r*2)/(5+(p-r)*(p-r)-2*dg) 


Dadurch entsteht dasselbe Problem, wenn die Werte 7, 15 und 2 der Reihe nach 
für p, q und r eingegeben werden. (Versuchen Sie es einmal!) Im allgemeinen 
ist es zweckmäßig, Divisoren darauf zu überprüfen, ob sie Null sind, bevor man 
zu rechnen versucht. Wir könnten das obige Beispiel folgendermaßen um- 
schreiben: 
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30 INPUTp,q,r 

32 LETd=5(ptr)*(p-r)-2*gq 

34 IFd=9THEN PRINT "Geht nicht": GO TO 30 
40 LETa=(p+tq=-r*2)/d 


Der Sinn des GOTO-Befehls ist (hoffentlich) klar! Zeile 34 ist ein Beispiel für 
eine Zeile mit Mehrfachbefehlen. 


Debugging-Problem 


Hier schließlich noch eine Gelegenheit, das erworbene Wissen zu überprüfen. 
Das folgende Programm soll eine Reihe positiver Zahlen akzeptieren und ihr 
Mittel anzeigen. Wenn wir das Mittel von 2.4, 8.1, 7 und 14 erfahren wollten, 
würden wir eingeben: 


2.4 

8.1 

7 

14 

—1 
Das ""-1"" am Ende soll anzeigen, daß keine weiteren Daten eingegeben wer- 
den, und gehört nicht zu den Daten. (Ein solcher Wert wird oft Begrenzer 


genannt; wenn Sie sich unten Zeile AD des Programms ansehen, erkennen Sie, 
wie er wirkt.) 


18 LETs=® 
20 LETc=® 
30 INPUTn 


40 IFn < ® THEN GO TO 199 
50 LETc=c+1 

60 LETzZ=st+tn 

70 GOTO 39 

108 PRINT "MITTELIST []J"; s/c 


Das Listing enthält einige Schreibfehler. Stellen Sie fest, ob Sie sie korrigieren 
können, indem Sie das Programm so eingeben, wie es dasteht, und daran 
herumbasteln. Wenn Sie es versucht haben, vergleichen Sie Ihre Lösung mit der 
meinen auf Seite 53. 

Viel Spaß bei der Fehlersuche! 
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8 ZUFALLSZAHLEN 


Eine Spur von Unberechenbarkeit ist in den Spectrum ebenfalls 
eingebaut. 


Die Anweisung RND erzeugt eine "zufällige”’ Zahl zwischen O und 1, die ® 
entsprechen kann, aber nicht 1. Eigentlich ist sie nicht wirklich zufällig, sondern 
nur unecht zufällig, und die Zahlen wiederholen sich nach jeweils 65537 
Durchgängen, aber in der Praxis bemerken Sie das nicht. Da niemand weiß, wie 
eine "Zufalls”’zahl wirklich aussieht, ist der Gebrauch von "unecht” selbst ein 
bißchen unecht. 

Sie können das in Spielprogrammen verwenden. Beispiel: Um zu simulie- 
ren, daß Würfel gerollt werden, stellen Sie fest, daß 6 * RND eine Zufallszahl 
zwischen ® und 6 ist (6 nicht eingeschlossen); demnach ist INT (6 * RND) 
zufällig ® oder 1, 2, 3, 4, 5; demnach ist 1 + INT (6 * RND) zufällig eine Zahl von 
1, 2,3, 4, 5, 6. Genau das tut ein Würfel. Um eine Zufallskarte aus einem Paket 
von 52 Karten zu ziehen, würden Sie ein ähnliches Spiel mit 52 + RND spielen, 
aber Sie brauchen ein raffiniertes Programm, um die Zahlen zwischen ® und 51 
in Kartennamen wie “"Pikbube’’ umzuwandeln. Es geht aber, wenn Sie ge- 
schickt sind. 

Sie können Zufallszahlen auch für statistische Simulationen verwenden. 
Ein hübsches Beispiel dafür steht auf Seite 148, MONOPOLY-WURFELN. 
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9 VERZWEIGUNG 


Manchmal hängt das, was Sie vom Computer verlangen wollen, 
von den Dingen ab, die bis dahin geschehen sind. In diesem Fall 
bedienen Sie sich einer Methode mit dem Namen Verzweigung. 


Dieser Abschnitt befaßt sich mit Logik und bedingten Befehlen, wo das, was 
der Computer zu tun hat, von verschiedenen anderen Dingen abhängt. Beispiel 
Kinobesuch: IF (wenn) Sie unter 16 Jahre alt sind, THEN (dann) wird man Sie 
nicht in einen nur für Erwachsene freigegebenen Film hineinlassen. Ähnliche 
Bedingungen können Sie dem auferlegen, was der Computer macht. 

Der Befehl dafür lautet IF... THEN... Auf das, was anstelle der Punkte 
steht, kommt es an. 

Wir wollen ein Programm schreiben, das uns sagen soll, ob eine gegebene 
Zahl gerade oder ungerade ist. ("Auch schon was!” werden Sie sagen, und das 
stimmt ja auch, aber wie anderswo in diesem Buch geht es ums Prinzip, nicht 
um das konkrete Ergebnis.) 

Dann mal los. 


10 INPUTn 
20 IFn=2+INT (n/2) THEN PRINT "gerade" 
30 IFn <> 2+*INT (n/2) THEN PRINT "ungerade" 


Wie funktioniert das? Gerade Zahlen sind solche, die man ohne Rest durch 2 
teilen kann. Demnach ist n also dann gerade, wenn n/2 eine ganze Zahl ist. Das 
heißt, mit INT bleibt sie gleich, also n/2 = INT (n/2). Und das ist dasselbe wie 
n=2* INT (n/2). Zeile 20 ist also nur eine kompliziertere Fassung von 


20 IFnogerade THEN PRINT "gerade” 


was für uns ja durchaus Sinn ergibt — aber eben nicht für den armen alten 
Spectrum, der keine Ahnung hat, was "ist gerade‘' bedeutet, bis wir es ihm in 
der Sprache sagen, die er versteht. 

Nur um das ganz deutlich zu machen, wollen wir ein paar Fälle berech- 


nen. 
n 22 23 24 25 26 
n/2 11 11.5 12 12.5 13 
INT n/2) 11 11 12 12 13 
2 INT (n/2) 22 22 24 24 26 


Das sollte eigentlich genügen, um sogar den ärgsten Skeptiker zu überzeugen. 
(Ebenso wird n durch k ohne Rest geteilt - bei ganzen Zahlen k, n-wenn 
und nur dann, wenn n =k * INT (n/k). Das zu wissen, ist sehr nützlich.) 
Vielleicht sollte nun noch darauf hingewiesen werden, daß in Zeile 30 das 
Symbol < > “ist nicht gleich‘’ bedeutet. Viele Mathematiker würden? verwen- 
den, aber der Spectrum bevorzugt <>. Fragen Sie mich nicht, warum. 
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Allgemein gesehen, tun Sie das Gleiche. Der entscheidende Befehl hat 
die Form 


10 IF dieses THEN jenes 


wobei "dieses" und "jenes’’ Anweisungen sind. (In Zeile 20 oben ist dieses’ 
“"n=2+INT (n/2)” und "jenes’” "PRINT "gerade’'.) 

Die Anweisung “dieses” muß eine sein, die der Computer als entweder 
wahr oder falsch erkennen kann. (IFSTOPTHEN...sagt nicht sonderlich viel, 
im Gegensatz etwa zu IFn = 1981 THEN... .). Wenn "dieses’ wahr ist, geht der 
Computer weiter und tut "jenes’’; ist dieses” falsch, geht er weiter zur nächsten 
Programmazeile, ohne "jenes zu tun. 

Nun kommen zwei besonders häufige Arten von bedingten Befehlen. 


Bedingte Sprünge 
Sie haben die Form 
10 IF dieses THENGOTOn 


wobei n eine Zeilennummer ist. Solche Befehle kann man dazu verwenden, 
mitten im Strom die Pferde zu wechseln — das heißt, den ganzen Verlauf der 
Berechnung zu verändern, indem man zu einem anderen Teil des Programms 
geht. 

Beispiel: Wenn man die Quadratwurzel einer Zahl berechnet, muß man 
berücksichtigen, daß negative Zahlen keine Quadratwurzeln haben. Sie vermei- 
den also Fehlermeldungen, wenn Sie so vorgehen: 


10 INPUTn 

20 IFn < THEN GO TO 59 

30 PRINTn,SORn 

40 STOP 

50 PRINT "Quadratwurzel nicht definiert” 


Beachten Sie das STOP in Zeile 40. Warum ist es vorhanden? Nehmen Sie es 
heraus und sehen Sie sich an, was geschieht! 

Ebenso können Sie sich, wenn Sie PRINT AT a, b verwenden, dagegen 
schützen, daß a und b in nicht anzeigbaren Bereichen sind, wenn Sie schreiben: 


108 IFa < ®THEN GO TO 1009 
118 IFa> 21 THEN GO TO 1999 
120 IFb < ® THEN GO TO 1099 
130 IFb > 31 THEN GO TO 1909 
150 PRINTATa, b: "*" 
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160 STOP 
1000 das, was Sie als nützliche Antwort richtig finden... 


etc. 


Wir gehen hier davon aus, daß a, b schon in einem vorangegangenen Pro- 
grammteil zugeteilt wurden. 
Setzen Sie davor 


18 INPUTa 
20 INPUTb 


und befehlen Sie dem Computer dann PRINT AT 999, - 37, indem Sie a = 999, 
b = -37 setzen. 
Geben Sie Zeile 100® den Text 


1000 "So dumm bin ich nicht mehr!” 


Ist er's? 
Wenn Sie finden, daß die Zeilen 100-130 plump aussehen, haben Sie 
ganz recht. Vergleiche den Abschnitt unten über LOGIK. 


Bedingte Zuweisungen 


Sie haben die Form IF dieses THEN LET irgend etwas. Beispiel: Eine Alternative 
zum ersten Programm oben wäre 


10 INPUTn 

20 LET a$ = "ungerade’ 

30 IFn=2+*INT (n/2) THEN LET a$ = "gerade 
40 PRINT a$ 


‚Hier hat a$ ein Dollarzeichen, weil es keine Zahl ist, sondern eine Zeichenkette, 
ein String (siehe Kapitel 17). 
Was bedeutet dieses Programm? 


18 LETs=INT(2*RND) 

20 IFs=®THENLET a$ = "KOPF" 

30 IFs=1 THEN LET a$ = “WAPPEN” 
40 PRINT a$ 


Sobald Sie ein Programm schreiben und das, was Sie tun wollen, davon 
abhängt, daß bestimmte Dinge geschehen oder nicht geschehen, denken Sie 
gleichan IF... THEN... 
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Logik 


Ein großes Thema, in gelehrten Werken immer wieder untersucht... aber das 
Meiste davon brauchen wir nicht zu wissen. Der Spectrum beherrscht Logik — 
vermutlich besser als Sie oder ich. Vor allem kann er Anweisungen kombinieren, 
die in der "'dieses’’-Position eines IF dieses THEN jenes vorkommen, und zwar 
dadurch, daß er AND, OR oder NOT (also "und”, “oder”, “nicht” verwendet. 


Grundregeln: p AND q ist nur wahr, wenn p wahr ist und q wahr ist. 
p OR q ist wahr, wenn p wahr ist oder q wahr ist oder 
beide wahr sind. 

NOT p ist nur wahr, wenn p falsch ist. 


Der Spectrum behandelt NOT vor AND und AND vor OR. Er behandelt nahezu 
alles andere, was Ihnen einfällt, bevor er sich mit einer von diesen Anweisungen 
befaßt. Die Folge: Sie brauchen oft keine Klammern, um den Befehl klarzuma- 
chen. 

Beispiel: Wir können die Zeilen 190-130 oben verbessern, indem wir sie 
in die Einzelzeile verwandeln 


1008 IFa<®ORa> 21 ORb <PORb > 31 THEN GO TO 1000 


Es gibt alle möglichen staunenswerten Möglichkeiten, die Logik des Spectrums 
zu nutzen, aber sie sind nur umständlich zu erklären, und da ich nicht viel Platz 
habe, höre ich hier (ungern) auf. Mit Kapitel 10 des Sinclair-Handbuchs kön- 
nen Sie einen Anfang machen, aber das ist bei weitem nicht die ganze Ge- 
schichte. 


Mehrfachbefehl-Zeichen 


‚Der Spectrum läßt zu, daß Sie in einer einzelnen Zeile mehr als einen Befehl 
unterbringen. Die Befehle müssen lediglich durch Doppelpunkte ‘:” getrennt 
werden. Das Programm in Kapitel 1 über Basis-BASIC hätte man also auch 
etwa so schreiben können 


18 PRINT "Verdoppeln’”: INPUTx:LETy=x+tx 
20 PRINTx,y: STOP 


Wenn man wollte, könnte man auch das alles in eine einzige Zeile setzen. 

Man kann das nutzen, um ein wenig Platz zu sparen (damit fallen Zeilen- 
nummern weg) oder um ein Programm leichter verständlich zu machen. Der 
größte Haken dabei ist, daß Sie mit GO TO nur zum Beginn einer Mehrfachbe- 
fehl-Zeile gehen können. Im wesentlichen habe ich Mehrfachbefehle vermie- 
den - in der Regel kann man ohnesie leichter erkennen, was vorgeht - aber bei 
einer Gelegenheit können sie wirklich sehr nützlich sein. Ich habe diesen Kniff 
schon in Debugging 1 verwendet: 


34 IFd=®THEN PRINT "Geht nicht”: GO TO 30 
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Damit kann der Computer zwei verschiedene Dinge tun, wenn eine gegebene 
Bedingung gilt; die Verwendung vieler GO TOs wird vermieden. 

Der wesentliche Punkt, den man sich merken muß: Nach einem THEN 
sind alle Befehle in dieser Zeile durch die IF-Anweisung bedingt, diedem THEN 
vorangeht. Mit anderen Worten: Ein Befehl 


IF dieses THEN jenes: das nächste: etwas anderes 


führt dazu, daß alle drei, also jenes, das nächste und etwas anderes ausgeführt 
werden (wenn dieses wahr ist) oder überhaupt nichts (wenn dieses falsch ist). 

Nützlich, aber auch ein Stolperstein. Es fällt sehr leicht, Programme wie 
dieses zu schreiben: 


10 IFx=®THEN GO TO 29: IFx = 1 THEN GO TO 1909 
20 PRINT "x ist Null” 


etc. 


unter dem Eindruck, der Computer werde eine Verzweigung zu 20 machen, 
wenn x =, und zu 1009, wenn x = 1. Tuter nicht. Wenn x - 1, dann faßteer Zeile 
1® in diesem Sinn auf: 


IFx=®THEN... 
...GO TO 20 und IFx = 1 THEN GO TO 1000 


aber 


IF x <> © (was der Fall ist, wennx = 1) THEN... 
... beachte den Rest der Zeile nicht und geh zur nächsten. 


Das ist hier Zeile 20, genau jene, wohin er nicht gehen sollte! 
Wenn Sie 1® aber ersetzen durch 


18 IFx=®THEN GO TO 29 
15 IFx=1THEN GO TO 1009 
läuft alles so, wie Sie es erwarten. 


Moral: Zeilen mit Mehrfachbefehlen sind am nützlichsten in IFITHEN- 
Befehlen, dort aber auch am gefährlichsten. 


41 


10 GRAFISCH DARSTELLEN 


Einer der Hauptgründe, sich einen Spectrum zu kaufen: Seine aus- 
gezeichnete Grafik. Fangen Sie an mit: Grafisch darstellen. 


Für einen Kleincomputer ist der Spectrum mit ein paar recht verfeinerten Werk- 
zeugen für das Zeichnen von Bildern ausgestattet. Er beherrscht Grafik mit 
sogenanntem hohem Auflösungsvermögen und auch mit geringem. Das mögen 
brauchbare Ausdrücke für Unterhaltungen bei Cocktailparties sein, aber in 
Wirklichkeit bedeutet es, daß man Bilder mit Bleistift zeichnen kann (hochauf- 
lösend) oder mit breitem Pinsel (geringe Auflösung). 

In diesem Kapitel befasse ich mich nur mit der hochauflösenden Art von 
Grafik. Wenn Sie in diesen Modus umschalten, wird der Bildschirm aufgeteilt in 
eine große Zahl kleiner Quadrate, die Pixel heißen, 256 horizontal und 176 
vertikal. Es gibt insgesamt also 256 x 176 = 45056 Pixel (Pixel von picture 
elements = Bildelemente). 
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Abbildung 10.1 


Abbildung 10.1 zeigt, wie auf sie Bezug genommen wird. Die erste Spalte wird 
mit ® bezeichnet, die letzte mit 255. Die unterste Reihe hat die Bezeichnung 9, 
die oberste 175. Auf dem Bildschirm wird ein Punkt dadurch geschwärzt, daß 
man beispielsweise schreibt: 


50 PLOT 79,67 
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Wie Sie aus dem Schaubild erkennen können, zeigt der erste Wert nach PLOT 
die Spaltennummer an, der zweite Wert die Reihennummer. Das Schlüsselwort 
PLOT teilt dem Computer mit, daß Sie von ihm verlangen, er solle in Begriffen 
hoher Auflösung denken; für geringe Auflösung können Sie PLOT nicht ver- 
wenden. Es gibt für hohe Auflösung noch zwei andere Schlüsselwörter: DRAW 
und CIRCLE. 

Befassen wir uns zuerst mit DRAW. In der einfachsten Form wird DRAW 
dazu benützt, eine gerade Linie zu zeichnen. Der Anfangspunkt für die Linie ist 
gegeben; er befindet sich immer dort, wo der “Bleistift” im Augenblick gerade 
ist. Die beiden Werte nach DRAW geben die Zahl der Spalten und Zahl der 
Reihen an, die zurückzulegen sind, bis das Ende der Linie erreicht ist. Demnach 
würde 


10 PLOT 39, 30 
20 DRAW 40, 80 


eine Linie hervorbringen, wie Abbildung 10.2 sie zeigt. 


| 
| 
| 
| 
| 
| 
I 
| 
| 
l 
| 





Abbildung 10.2 


Fügen wir hinzu 
so sind wir bei Abbildung 10.3. 
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N) 30 79 120 25 
Abbildung 10.3 
Es ist also ganz leicht, nach Wunsch etwa Rechtecke zu zeichnen. Ange- 


nommen, wir geben zuerst die Einzelheiten des Rechtecks ein und nennen die 
Werte an seiner linken unteren Ecke, seine Breite und seine Hohe: 


10 INPUT "Spalte links außen:”; Is 
20 INPUT "Unterste Reihe:”; ur 
30 INPUT 'Hoehe:”; h 

40 INPUT "Breite:’’; b 


Zuerst können wir die untere linke Ecke zeichnen: 
50 PLOTIs, ur 


Jetzt die Grundlinie des Rechtecks: 


60 DRAW, ® 
die rechte Seite: 

70 DRAWB,h 
die obere Linie: 

80 DRAW-b, d 
und die linke Seite: 

99 DRAWB,-h 
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Wenn das Rechteck eingeschwärzt werden soll, wird die Sache ein bißchen 
kniffliger. Wir müssen jetzt alle vertikalen Linien zwischen linkem und rechtem 
Rand zeichnen. Nehmen wir an, wir wollen nur eine davon zeichnen, und zwar 
die in einer Spalte, die s genannt wird. (Alles, was wir im Augenblick über s 
wissen, ist, daß es größer ist als Is, die Spalte mit dem linken Rand darin, und 
kleiner als Is + b, wo sich der rechte Rand befindet.) Der Code würde lauten: 


118 PLOTs,ur +1 (um den Bleistift an die richtige 
Stelle zu setzen) 
120 DRAW®,h-1 


Das müssen wir nun bei allen Werten für s von Is +1 bis Is +b-1 tun. +1 und —1 
stehen da, weil es keinen Sinn hat, die Ränder noch einmal zu zeichnen. 
Offensichtlich können wir eine FOR-Schleife gebrauchen: 


108 FORs = Is+1 TO Istb-1 
130 NEXTs 


Um den Prozeß zu wiederholen, damit wir Rechtecke auf dem ganzen Schirm 
zeichnen können, brauchen wir nur anzufügen: 


148 GOTO1P® 


Selbstverständlich werden die Rechtecke immer ausgefüllt, weil die Zeilen 100 
bis 130 stets ausgeführt werden. Wir könnten den User fragen, ob er sein 
Rechteck auf folgende Weise einschwärzen will: 


48 INPUT "Schwaerzen? (ja/nein)’; b$ 
und den ""Schwärz’-Code ignorieren, wenn die Antwort Nein” lautet: 
95 IFb$ = “nein” THEN GO TO 19 


Bei alledem wird unterstellt, daß der User sich vernünftig verhält und nicht 
versucht, Linien außerhalb der Bildschirmgrenzen zu zeichnen. Das ist eine 
gefährliche Unterstellung. User sollte man nicht so sehr als Trottel betrachten, 
die etwas falsch machen könnten, sondern als böswillige Menschen, die ganz 
gewiß allestun, was siekönnen, um Ihr Programm zusammenbrechen zu lassen, 
wenn man ihnen nur die kleinste Möglichkeit dazu gibt. 

Wir sollten also ein paar Tests einschalten, um dafür zu sorgen, daß das 
angegebene Rechteck auch gezeichnet werden kann, bevor wir es damit versu- 
chen. 

Erstens: Ist es die Bildschirmspalte ganz links außen? 


15 IFis<® OR Is> 255 THEN PRINT "geht nicht’: GO TO 19 
Dann: Ist die unterste Reihe möglich? 


25 IFur<® OR ur>175 THEN PRINT "geht nicht”: GO TO 29 
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Ist die Höhe negativ? 

33 IFh<®THEN PRINT "ist doch albern!”: GO TO 39 
Paßt die oberste Zeile hinein? 

36 IFur+ h>175 THEN PRINT "paßt nicht rein”: GO TO 30 
Paßt der rechte Rand? 


44 IFis+b>255 THEN PRINT "nicht zumachen’: GO TO 40 


49 IFb$<> “ja” AND b$ < > “nein” THEN PRINT 
“Bitte ja oder nein eingeben”: GO TO 48 


Hier ist ein interessanter Punkt, auf den Sie achten sollten. Für den Computer ist 


LE De 7} 


wie es ist, und der User CAPS LOCK geschaltet hat (d. h. alles wird in Groß- 
buchstaben geschrieben), tippt er als Antwort auf Zeile 48 "JA" oder NEIN”, 
und die ärgerliche Maschine erwidert jedesmal: 


Bitte ja oder nein eingeben 


Schwaerzen? (ja/nein) 


Probieren Sie, ob Sie Zeile 49 so abändern können, daß der User entweder 
große oder kleine Buchstaben eingeben kann. 


Kreisen um den Spectrum 


Kreise zu zeichnen, ist sehr einfach. Es gibt ein besonderes Schlüsselwort 
CIRCLE, nach welchem Sie mit Spalte und Reihe angeben, wo der Mittelpunkt 
sein soll, und dann den Radius. Zum Beispiel zeichnet 


20 CIRCLE 59, 70, 30 


einen Kreis, dessen Mitte am Schnittpunkt von Spalte 5® und Reihe 79 liegt, 
und der den Radius 30 hat. 

DRAW kann aber auch dazu verwendet werden, Kreise oder vielmehr 
Teile von Kreisen zu zeichnen. Versuchen Sie einmal: 


10 PLOT 29, 30 
20 DRAW 69, 190 
30 DRAW 69, 199, 1 
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Sie werden sehen, daß Zeile 20 wie erwartet eine gerade Linie zeichnet und 
Zeile 30 zu dem ursprünglich mit PLOT festgelegten Punkt zurückkehrt, was 
ebenfalls zu erwarten war. Das geschieht aber auf einer Kreisbahn und nicht 
entlang einer geraden Linie. Was BASIC anweist, einen Kreisbogen zu beschrei- 
ben, ist die dritte Variable nach DRAW. Wie das geht, ist ein bißchen verwirrend, 
aber ich will es trotzdem erklären. 

Stellen Sie sich den ganzen Kreis vor (den Teil, der nicht gezeichnet wird, 
zeigt Abbildung 10.4 gestrichelt). 


Winkel wird bestimmt durch den 
dritten Wert in der DRAW-Anweisung 





Abbildung 10.4 


Wenn Sie Linien vom Mittelpunkt bis zu den Enden des Bogens ziehen, 
ist der Winkel zwischen ihnen der dritte Wert nach DRAW. Das mag Sie 
überraschen, weil dieser Winkel ganz offensichtlich viel größer ist als 1. Das 
liegt daran, daß der Winkel (damit das Leben nicht zu einfach wird), in Radian- 
ten gemessen wird, und 1 Radiant knapp unter 6®° beträgt. Falls das nun alles 
nicht kristallklar sein sollte und Sie sich unter Radianten etwas ganz anderes 
vorgestellt haben, zerbrechen Sie sich deswegen nicht den Kopf. In der Praxis 
bedeutet das nur, daß Sie dann, wenn Sie einen kleinen Winkel wählen (mei- 
netwegen 9.1), eine Linie erhalten, die von einer geraden nur wenig abweicht. 
Je größer der Winkel, desto deutlicher die Kreisform der Linie. Probieren Sie: 


10 PLOT 69, 20 

15 FORa=09.4TO PISTEP 4 
20 DRAW 199,0 

30 DRAW-199,9, a 


40 NEXTa 
Sehen Sie, wie die Form sich einem Halbkreis annähert, wenn der Winkel an PI 
(3.14159) herankommt? 

Andern Sie Zeile 15 jetzt ab zu: 

15 FORa = 0.4TO 2*PISTEP 9.4 
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Sie erhalten immer mehr einen Vollkreis, bis er am Ende nicht mehr auf den 
Schirm paßt. Es spielt keine Rolle, wie klein Sie die gerade Linie zunächst 
wählen, früher oder später paßt der Kreis nicht mehr auf den Schirm. Der Grund 
dafür: 2*PI Radianten sind 360° Grad - ein voller Kreis! Da dieser volle Kreis die 
anfängliche gerade Linie enthält, muß sein Radius unendlich sein. Er paßt also 
überhaupt nirgends hinein! Die Moral: Lassen Sie den Winkel nicht zu groß 
werden (um 5 liefert den größten Teil eines Kreises), und seien Sie selbst dann 
vorsichtig; man kann leicht vom Bildschirm rutschen. Wohin man dann gerät, ist 
nicht leicht festzustellen. 


Locher ausfüllen 


Wir haben gesehen, wie man ein Rechteck schwärzt, aber einen Kreis oder ein 
Kreissegment zu schwärzen, scheint doch eine erheblich schwierigere Aufgabe 
zu sein. Der Grund: Man kann nicht so leicht erkennen, wo der DRAW-Befehl 
für das Schwärzen anfangen und aufhören muß, weil diese Werte nicht so klar 
festgelegt sind wie bei einem Rechteck. Und das ist der Schlüssel zur Lösung. 
Wir müssen herausbekommen, wo die in jeder Reihe die Ränder der Figur sind, 
die wir schwärzen wollen. (Zur Abwechslung schwärzen wir einmal nicht die 
Spalten, sondern die Reihen.) 

Zum Glück gibt uns der Spectrum eine Möglichkeit für die Feststellung, 
ob ein bestimmtes Pixel geschwärzt wird. Das ist die POINT-Funktion. So setzt 


200 LET G = POINT (20, 30) 


g auf 1, wenn das Pixel bei 20, 30 geschwärzt wird, und auf Null, wenn nicht. 
Das Problem gliedert sich also so auf: 


1 Legen Sie einen rechteckigen Raum um die zu schwärzende Figur fest, in 
dem die Suche nach den Rändern ablaufen soll. 
2 Tun Sie bei jeder Reihe Folgendes: 
a) Suchen Sie von links her, bis die Figur getroffen wird. Stellen Sie fest, 
wo das ist. 
b) Suchen Sie von rechts her, bis die Figur getroffen wird. Stellen Sie fest, 
wo das ist. 
c) Ziehen Sie eine Linie zwischen den beiden nach a) und b) gefundenen 
Punkten. 


Hier das Programm, das dabei herauskommt: 


600 INPUT "Spalten rahmen’'; Is, rs [linke und rechte Spalten 
des Rahmenrechtecks] 


610 INPUT “Reihen rahmen’; ur, or [unterste und oberste Rei- 
hen des Rahmenrechtecks] 


620 FORr=urTOor 


630 FORs=1IsTOrs [Suche von links nach 
640 IF POINT (s,r) = 1 THEN GO TO 669 rechts nach dem Rand] 
650 NEXTs 
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655 GOTO 730 [Wenn das Programm hier 
ankommt, gibt es in dieser 
Reihekeinen Rand, also zur 
nächsten gehen] 


660 LETs1 =s [s1 istäußerste Spalte links] 

670 FORs=rsTOIsSTEP -1 [Suche von rechts nach 

680 IF POINT (s,r) = 1 THEN GO TO 700 links nach dem Rand] 

690 NEXTs 

7008 LETs2=s [s2 ist äußerste Spalte 
rechts] 

718 PLOT SsI,r [ein- 

720 DRAW s2-s1,®0 schwärzen] 

730 NEXTr 


Natürlich müssen Sie eine Routine zum Zeichen einer geschlossenen Figur 
voransetzen, vielleicht die für das Zeichen eines Kreissegments zu Beginn des 
vorigen Abschnitts, damit überhaupt etwas stattfindet. 

Man kann einige leichte Veränderungen vornehmen, mit denen allerhand 
herauszuholen ist. 

Ändern Sie als erstes Zeile 629 ab: 


620 FORr=urTOorSTEPc 


und schreiben Sie dann eine Zeile, die es dem User gestattet, jeden beliebigen 
Wert von seinzugeben (an einer passenden Stelle vor 620). Wird c auf 1 gesetzt, 
bleibt die Wirkung gleich, aber bei c = 2 wird nur jede zweite Reihe eingezeich- 
net, so daß wir statt der Schwärzung eine Schraffierung erhalten. Bei größeren 
Werten von c werden die Schraffierungszwischenräume natürlich breiter. 

Nun schreiben Sie Zeile 720 um: 


720 DRAW s2s1,d,a 


und fügen Sie für "'a’’ an passender Stelle eine INPUT-Zeile ein. Versuchen Sie 
nun einen Kreis mit einem ziemlich kleinen Wert von "a’ (sagen wir 9.5) zu 
schraffieren. Sehen Sie die dreidimensionale Wirkung? 

Wählen Sie nun das Rahmenrechteck so, daß die obere Kreishälte dar- 
überliegt. Verwenden Sie denselben Wert von a, setzen Sie c aber auf 1 zurück. 
Jetzt haben Sie einen Mond im Schatten. (Verwenden Sie Ink weiß auf Paper 
schwarz, damit die Wirkung besonders gut herauskommt.) Und so weiter und 
so fort. Als ich dieses Programm zum erstenmal schrieb, hatte ich viel Spaß 
dabei, Gänsekiele in Tintenfässern zu zeichnen. Das Schlichte eben ... 
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Der elektronische Radiergummi von BASIC 


Zuzusehen, wie Formen gelöscht werden, macht fast soviel Spaß wie das 
Zeichnen. Sie verwenden auch dafür die Befehle PLOT, DRAW und CIRCLE, 
müssen BASIC aber sagen, daß Sie jetzt nicht den Bleistift in der Hand haben, 
sondern den Radiergummi. 

Probieren Sie Folgendes aus: 


50 CIRCLE 129, 85, 60 
60 OVER1 
70 CIRCLE 129, 85, 60 


Sie werden sehen, wie der Kreis zuerst gezogen und dann ausradiert wird. 
Ersetzen Sie Zeile 7® jetzt durch GO TO 59 und lassen Sie wieder laufen. Der 
Kreis wird gezogen, ausradiert, neu gezogen und so weiter! 

Na gut, ich habe geschwindelt. In Wirklichkeit radiert der Computer im 
Modus "OVER 1’ aus, wenn etwas zum Radieren da ist, sonst zeichnet er. 
Sobald Zeile 50 also das erstemal zum Tragen kommt, wird der Kreis gezeichnet, 
beim nächstenmal ausradiert (weil er jetzt vorhanden ist), beim nächstenmal 
gezogen (weil es nichts auszuradieren gibt), und so weiter. 

Jetzt nehmen Sie: 


10 OVER® [um das Radieren abzustellen] 
20 CIRCLE 49, 40, 30 

30 CIRCLE 69, 49, 30 

40 OVER1 [Radierer einschalten] 

50 CIRCLE 199, 190, 30 

60 CIRCLE 129, 199, 39 


Sehen Sie die Wirkung? Wenn der Radierer abgeschaltet ist, überlappen sich die 
beiden ersten Kreise der Erwartung entsprechend. Ist der Radierer eingeschal- 
tet, überlappen sich auch die beiden anderen Kreise, aber der zweite radiert Teile 
des ersten dort aus, wo sie sich schneiden. 

Die Wirkung von CIRCLE (oder DRAW oder PLOT) bei OVER ist dem- 
nach: ’"Wenn etwas zu löschen da ist, dann lösche es; sonst zeichne die ge- 
wünschte Form.’ Im obigen Programm hält die Wirkung des "OVER ®” in Zeile 
10 an, bis es durch das "OVER 1" in Zeile 4® widerrufen wird. Man kann einen 
“"OVER’-Befehl für nur eine Anweisung gelten lassen, und zwar so: 


70 CIRCLE OVER 9; 139, 109, 20 


Der neue Kreis überlappt den vorherigen, ohne die Schnittstellen zu löschen, 
aber bei jeder folgenden Anweisung, die keine OVER-Bestimmung enthält 
(probieren Sie beispielsweise 9d PLOT ®, ®: DRAW 159, 148) bleibt das OVER 
1 in Zeile 4® in Kraft und radiert somit an Schnittstellen, auch wenn man dort, 
wo die Schnittstelle ein einziges Pixel ist, schon ganz genau hingucken muß, 
um die Wirkung zu erkennen. Wie sähe die Wirkung aus, wenn man das "OVER 
0; aus Zeile 7® herausnähme? Versuchen Sie es einmal! 
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Wie man seine Kunstwerke für die Nachwelt 
aufbewahrt 


Sie können die Techniken, die wir besprochen haben, dazu benützen, recht 
phantasievolle Muster zu zeichnen. In "Fertigprogramme’” finden Sie ein Pro- 
gramm, mit dem das ziemlich leicht geht (es nutzt die Prozeduren für Schwärzen 
und Schraffieren, die hier beschrieben worden sind). 

Es wäre also praktisch, wenn wir die Resultate auf Band speichern könn- 
ten. Beispielsweise könnten wir ein wunderschönes Mondlandschafts-Display 
entwerfen, das wir vielleicht bei einem Mondlande-Programm verwenden wol- 
len, oder wir möchten eine Reihe von Bildern haben, um mit jedem ein Loch auf 
einem Golfplatz darzustellen. Ein Golfprogramm könnte sie der Reihe nach so 
laden, wie sie gespielt werden. 

Der Spectrum erleichtert dieses Verfahren sehr. Wir sichern und laden den 
Inhalt des Displayschirms fast genauso, wie wir Programme sichern und laden. 
Der einzige Unterschied ist der, daß wir nach den normalen SAVE- und LOAD- 
Befehlen das Wort "SCREEN$’ schreiben, um anzuzeigen, daß es der Bild- 
schirm ist, den wir auf Band genommen (oder zurückgelesen) haben wollen 
und kein Programm. Zum Beispiel sagt: 


SAVE "GLOCH3’” SCREEN$ 


“sichere den Bildschirminhalt als eine Banddatei namens "'GLOCH3”, und, 
wenn man zurückladen will: 


LOAD "GLOCH3' SCREEN$ 
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11 DEBUGGING II 


Bleistift und Papier sind nach wie vor von Nutzen... 


Vorhin, auf Seite 35, habe ich Sie mit dem Mittelwertprogramm allein gelassen. 
Es ist unten noch einmal abgedruckt, damit Sie nicht zuviel blättern müssen. Ich 
hatte den Vorschlag gemacht, Sie könnten es einmal mit dem Debugging 
versuchen. 


10 LETs=® 

20 LETc=® 

30 INPUTn 

Ad IFn<®THEN GO TO 109 
50 LETce=cti 

60 LETzZ=s+tn 

70 GOTO3® 


1080 PRINT "MITTELIST [J]"; s/c 


Überlegen wir uns ein schrittweises Vorgehen bei der Lösung des Problems. 
Offenkundig kommt es als erstes darauf an, festzustellen, ob es so funktioniert, 
wie es dasteht. Wir geben es also in den Spectrum ein und fahren es mit ein paar 
einfachen Datenmengen. Versuchen wir es mit: 


3 


—1 [beachten - dieser Wert dient nur als Terminator oder Begrenzer] 


Darauf so/lte die Antwort 5 sein. Wenn das Programm gefahren wird, erhalten 
Sie jedoch die Fehlermeldung 2 Variable not found, 59:1 (also ‘Variable nicht 
gefunden”). Hmm. Das heißt: In Zeile 5® ist eine bis dahin nicht definierte 
Variable verwendet worden. Aus dem Listing können wir ersehen, daß dort i 
steht. Geben wir i also den Wert, meinetwegen. 


5 LETIi=® 


Das sorgt dafür, daß das Programm über Zeile 5® hinaus fortfährt. Wenn wir 
Zeile 5 anfügen und wieder RUN drücken, stellen wir fest, daß die Meldung 


MITTEL IST 
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zwar richtig angezeigt wird, dann aber eine Fehlermeldung folgt, nämlich 
6 Number too big, 199:1 


Diese Meldung kennen wir schon. Sie werden sich vermutlich erinnern: Der "6" 
zufolge hat der Computer versucht, eine Berechnung anzustellen, deren Resul- 
tat er nicht aufnehmen kann. 199’ gibt die Zeilennummer an, wo das Problem 
aufgetreten ist. Man wird also vermuten dürfen, daß das Programm versucht 
hat, durch Null zu teilen, wie schon beim letztenmal, als diese Fehlermeldung 
aufgetaucht ist. Bevor wir uns als echte Detektive betätigen, wollen wir noch 
mehr Beweismaterial sammeln. Versuchen Sie es mit anderen Daten: 


2 
1 
4 


—1 


Die Meldungen sehen genauso aus wie vorher. Als Arbeitshypothese scheint 
sich demnach anzubieten: "Gleich, welche Daten eingegeben werden, das 
Problem schließt mit einer Meldung über arithmetischen Überlauf ab.’ Testen 
Sie das Programm mit drei oder vier anderen Datenmengen. Unsere Arbeitshy- 
pothese scheint sich immer mehr zu festigen. 

Wo fangen wir also mit dem Suchen an? Vorhin habe ich die Ausdrücke 
“Detektiv” und "Beweismaterial’ verwendet, und das nicht leichthin. Fehler in 
Programmen auszumerzen, gleicht der kriminalistischen Arbeit, und jeder Kri- 
minalist wird Ihnen sagen, daß man wie ein Halunke denken muß, um Erfolg zu 
haben, oder wenn Sie so wollen: "Nur ein Dieb fängt einen Dieb." Der Halunke 
in diesem Stück ist der Spectrum, also geht es für uns darum, so zu denken wie 
er. Als erstes müssen Sie Ihre Denkprozesse verlangsamen. Das ist eine Überra- 
schung für Sie, nicht wahr? Sie standen unter dem Eindruck, Computer wären 
eher schnell. Sind sie auch, aber die Art, wie sie über ein Problem "nachden- 
ken”, ist im Regelfall recht umständlich. Stellen wir als nächstes ein Modell des 
Computerspeichers oder wenigstens des Teils auf, der für das vorliegende 
Problem von Belang ist. In unserem Beispiel sind fünf Speicherelemente vor- 
gesehen. Sie haben die Namen s, c, n, iund z erhalten. Ein brauchbares Modell 
wird also schlicht eine Tabelle sein, mit der wir zeigen können, wie die Inhalte 
dieser Elemente sich während der Ausführung des Programms verändern. Es 
kann ferner nützlich sein, einen Hinweis auf die Zeilennummer zu haben, wo 
eine Verzweigung stattfindet, wenngleich das nicht unbedingt erforderlich ist. 
Die Tabelle könnte also folgendermaßen aussehen: 


Zelennummer | s [© In [1 | 2 ] Verzweisung 
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Ich habe eine zusätzliche Spalte "Verzweigung’ angefügt, deren Funk- 
tion ich gleich erkläre. Wir stellen die Tabelle nun dadurch auf, daß wir uns der 
Reihe nach ansehen, was jede Anweisung bewirkt. Wir müssen eine Daten- 
menge definieren, mit der wir arbeiten können; nehmen wir: 


2 


Die ersten Anweisungen, die ausgeführt werden müssen, stehen in den Zeilen 
5 und 10 und setzen die Speicherelemente i und s auf Null. Die Tabelle sieht 
dann so aus: 





Zeile 3® übernimmt den ersten Wert der Datenmenge und stellt ihn in n, 
demnach: 





Zeile 40 ist eine "IF”-Anweisung und dient damit nur zur Prüfung, ob n 
negativ ist. Das ist nicht der Fall (zur Zeit hat es den Wert 2), also ist der Test 
falsch, was wir in der Spalte "Verzweigung durch ein "x’ anzeigen, so daß der 
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Sprung zu 1®® nicht stattfindet. Wenn ein Test richtig ist und der Sprung 
stattfindet, zeigen wir das in der Spalte "Verzweigung” durch ein “fl an. Jetzt 
haben wrir: 


Zeilennummer | s ] e In [1 [= | Verweisung” 
5 ) 





Zeile 50 verlangt vom Computer, er soll den Inhalt von i holen, den Inhalt 
von c addieren und das Resultat nach c zurückstellen. Das sollte uns ein 
bißchen argwöhnisch machen, weil wir wissen, daß i ursprünglich nicht fest- 
gesetzt worden ist. Zeile 5 anzufügen, war also vielleicht doch keine so gute 
Idee. Fahren wir aber mit unserem simulierten Programm trotzdem fort. 





Null zu Null zu addieren, hat natürlich keine nutzbringende Wirkung, und das 
müßte uns noch argwöhnischer machen. Wir rufen uns ins Gedächtnis, daß wir 
nach Schreibfehlern suchen, und könnten auf den Gedanken kommen, i soll 
vielleicht gar nicht i sein, sondern 1, ein Versehen, das ja leicht vorkommen 
kann. 

Wir fangen jetzt mit einer neuen Tabelle ganz von vorne an und gehen von 
der neuen Vermutung aus, Zeile 5 sei unnötig und Zeile 5® laute 


50 LETc=c+1 
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"Zeilennummer | s Te In ] 2 | Verzweisung | 
10 Ö 


20 ® 
30 2 


79 / 
49 N 


Wenn das Programm Zeile 1®® erreicht, zeigt es die Meldung "MITTEL 
IST’ an, gefolgt vom Wert für s/c, der Null ist! 

Das Programm funktioniert also immer noch nicht. Interessant dabei ist 
aber, daß der Spectrum keine Fehlermeldung mehr bringt; wir haben eine neue 
Art von Fehler eingeführt - einen Logikfehler. Der Spectrum kann die Operatio- 
nen, die wir verlangt haben, zwar ausführen, aber er gelangt mit ihnen zur 
falschen Lösung. 

Sehen wir uns die Tabelle an, die wir generiert haben. Jetzt ist ziemlich 
klar, was die Funktion von c ist. Jedesmal, wenn in n ein neuer Wert eingegeben 
wird, erhöht sich der Wert inc um einen Punkt. Sobald die Verzweigung zu Zeile 
19® stattfindet, enthält c also die Zahl der insgesamt eingegebenen Werte, in 
diesem Fall 4. Mit s ist aber, seitdem es auf Null gestellt wurde, überhaupt nichts 
geschehen, und z enthält lediglich dieselben Werte wie n, aber ein bißchen 
später. Vielleicht sind s und z in Wahrheit identisch. Da s in Zeile 10 als erstes 
erwähnt wird, wollen wir unterstellen, z sei eine falsche Schreibweise für s. 
Demnach lautet Zeile 69: 


60 LETs=s+n 


5/ 


und aus der Tabelle wird: 


"Zeilonnummer | s | en ] Verzweigung 
10 ) 


29 " 
30 2 


69 13 
39 —1 


Angezeigt wird uns jetzt: 
MITTEL IST 3.25 
was zutrifft! 


Den Vorgang, den ich beschrieben habe, nennt man "Schreibtischtest''. 
Das ist eine oft angewandte Methode der Fehlersuche. Selbstverständlich muß 
man nicht immer alle Einzelheiten, die ich dargestellt habe, in die Tabelle eines 
Schreibtischtests aufnehmen (so sind etwa die Zeilennummern in diesem Fall 
für uns nicht sehr nützlich gewesen), und oft braucht man eine Tabelle nicht 
fertigzustellen, bevor es einem dämmert. Sie werden aber erkennen können, daß 
das ein hübscher Weg ist, Sie zum Zwangsjackendenken des Computers zu 
zwingen und gleichzeitig deutlich zu machen, wie das Programm abläuft. 

Sie mögen nun sagen: "Alles schön und gut, aber wer macht denn solche 
Schreibfehler, wenn er Programme eingibt?” 

Die Antwort: Das kommt dauernd vor, und zwar aus einer ganzen Reihe 
von Gründen. Erstens: Wenn Sie ein Programm aus einer Zeitschrift abschrei- 
ben, besteht die Möglichkeit, daß der Fehler schon ausgedruckt ist. Zweitens: 
In einem langen Programm kann Ihnen durchaus dieser oder jener Tippfehler 
unterlaufen - i für 1 (wenn das Listing, von dem Sie abschreiben, alle Groß- 
buchstaben verwendet hat), den Buchstaben O für ®, 2 für z und so weiter. 
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Drittens: Sogar dann, wenn Sie ein Programm selbst schreiben, können Sie 
einen Fehler machen, der auf einen Schreibfehler hinausläuft. 

Beispiel: Nehmen Sie an, Sie nennen eine Variable zu Beginn eines 
Programms b3. Sie schreiben mehrere Tage an dem Programm, basteln hier 
herum, ändern dort eine Zeile ab. Am Ende müssen Sie noch ein paar Zeilen 
schreiben, die diese Variablen enthalten, und Sie wissen noch ganz genau, daß 
sie b2 hieß. Nachzusehen brauchen Sie da gar nicht mehr. 

Das gibt es nicht, meinen Sie? Warten Sie mal ab, bis Sie ein paar Monate 
lang programmiert haben. 
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12 GRAFIK 


Der Spectrum kann zeichnen. Sobald er weiß, was er zeichnen soll, 
kann er die Zeichnung auch bewegen. Sobald er sie bewegen kann, 
läßt die Bewegung sich mit dem Keyboard steuern. Vor allem dann, 
wenn Sie Computerspiel-Programme schreiben wollen, müssen 
Sie etwas von Grafik verstehen. 


Ein besonders erfreulicher Zug von Computern ist der, daß sie Bilder zeichnen 
können - bei entsprechender Hardware sogar wunderschöne und komplizierte, 
vielfarbige Bilder. Der Spectrum hat auf diesem Gebiet zwar deutliche Grenzen, 
besitzt aber Fähigkeiten genug, um eine anregende Einführung in die Compu- 
tergrafik zu bieten. 

Kapitel 1® beschreibt einen der Wege, mit dem Computer zu zeichnen. 
Dort haben wir uns aber mit eher trockenen Dingen wie Rechtecken und 
Kreisen befaßt. Mit der PRINT-Anweisung lassen sich Zeichnungen machen, 
die dem Auge wohlgefälliger sind. 


Der "PRINT’”-Befehl 


Der Grundbefehl hier ist PRINT x$, wobei x$ ein Zeichen oder ein Zeichenstring 
ist. Das erklärt sich eigentlich selbst. Wenn Sie mit PRINT experimentieren, 
werden Sie aber bald dahinterkommen, daß dieser Befehl allein Ihnen wenig 
Macht darüber verschafft, wo ein bestimmtes Zeichen angezeigt wird: Der 
Computer beginnt mit jedem Befehl solcher Art auf der linken Bildschirmseite 
in der nächstverfügbaren Zeile, also nicht immer dort, wo Sie ihn haben wollen. 

Das besorgt PRINT AT x, y. Ganz ähnlich wie bei PLOT hat man sich den 
Bildschirm so vorzustellen, als sei er in Quadrate aufgeteilt, bezeichnet mit zwei 
Koordinaten x und y. Es gibt aber mehrere Unterschiede. Erstens einmal sind die 
Quadrate doppelt so groß. Das heißt: In jeder Richtung gibt es nur halb so viele, 
insgesamt also nur ein Viertel. Zweitens ist das Numerierungssystem für die 
Koordinaten ganz anderer Art -— nämlich einfacher. Die erste Zahl x ist eine 
Zeilennummer auf dem Schirm; sie reicht in dem Bereich, der für PRINT zur 
Verfügung steht, von ® oben bis zu 21 unten. Die zweite Zahl, also y, ist eine 
Spaltennummer. Sie bezeichnet die Entfernung entlang einer Zeile (also hori- 
zontal) und reicht von ® bis 31. Abbildung 12.1 zeigt dieses System ausführlich. 
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Abbildung 12.1 


Nehmen wir an, Sie wollen das Grafikzeichen | mitten auf dem Bild- 
schirm anzeigen. Die exakte Mitte ist nicht erreichbar, aber das Quadrat in Zeile 
11 und Spalte 15 kommt ihr ziemlich nah. Sie würden also schreiben 


10 PRINTAT11,15 "WW 


Beachten Sie den Strichpunkt (;). Er ist erforderlich, um den Computer anzu- 
weisen, gemeinsam das auszuführen, was er für zwei Befehle hält: geh nach 11, 
15; zeige etwas an. 

Wenn Sie mehrere Grafikzeichen aneinanderfügen, können Sie interes- 
sante Wirkungen erzielen. Der direkteste Weg dazu, nämlich die Verwendung 
vieler PRINT AT-Befehle, schluckt kostbaren Speicherplatz wie ein Cadillac 
Sprit, aber im Augenblick wollen wir uns den Kopf nicht über Wirtschaftlichkeit 
zerbrechen; wichtig ist nur das Prinzip. Probieren Sie dieses Programm aus: 


10 PRINTAT10, 1 ’DHB BE BBM' 
20 PRINTAT11,85 "BB BB RB BE 
30 PRINTAT228’WODRDOR D' 


Das müßte Sie an etwas Militärisches erinnern. (Falls nicht, dürfen Sie meinen 
schwachen Zeichenkünsten die Schuld geben.) 

Wenn man solche Grafikbilder anzeigen will, gibt es dazu eine nützliche 
Vorbereitung: Zeichnen Sie das Bild auf kariertes Papier und numerieren Sie 
Zeilen und Spalten, dann sind die erforderlichen Befehle leichter abzulesen. Das 
obige Programm wird auf diese Weise von Abbildung 12.2 gewonnen. 
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Abbildung 12.2 


Der Spectrum hat 16 grafische Sonderzeichen (im Zeichenvorrat die Nummern 
128-143 - siehe dazu Anhang A des Handbuchs oder Datenblatt). Sie können 
aber auch andere Zeichen gut verwenden (wie das obige Beispiel zeigt.) 
Video-Negativschrift (Weiß auf Schwarz) ist in diesem Zusammenhang beson- 
ders nützlich. 


Die Position verändern 


Wenn man einmal weiß, wie auf einer bestimmten Stelle auf dem Bildschirm mit 
PRINT etwas angezeigt werden kann, fällt es nicht mehr schwer, das Programm 
so abzuwandeln, daß die Grafikzeichen an jede gewünschte Stelle gesetzt 
werden können. Der obige Panzer (genau, das sollte einer sein) sitzt auf Zeile 
21, mit dem rechten Rand in Spalte 8. Wenn wir ihn so zeichnen wollen, daß er 
auf Zeile a sitzt und der linke Rand sich in Spalte b befindet, numerieren wir die 
Zeilen und Spalten im Bild einfach um, damit dieses Ergebnis erzielt wird (siehe 
Abbildung 12.3). 
Davon können wir das neue Programm ablesen: 


10 PRINTATa-2 bt "U HFS FB" 
20 PRINTATa-1,b "BB HB EM 
30 PRNTATAb "WB OD BO U" 
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Abbildung 12.3 


Natürlich läuft das nicht, wenn Sie den Wert von a und b nicht in einem 
vorangehenden Programmteil mitgeteilt haben. Es läuft auch nicht, wenn der 
Computer auf Werte von a und b stößt, die bewirken, daß das Bild über den 
Bildschirmrand hinausrutscht. Beim linken Rand bedeutet das, daß er ® oder 
größer sein muß, auf der rechten Seite brauchen wir b+9 gleich 31 oderkleiner, 
demnach b = 22 oder kleiner. Ebenso muß a gleich 2 oder größer sein und 21 
oder kleiner. . 

Der große Vorteil allgemeiner Überlegungen solcher Art ist der, daß wir 
unsere Panzer auf dem Bildschirm einfach dadurch zeichnen können, wo wir 
wollen, daß wir a und b bestimmen. Ein paar Proben: Fügen Sie sie den Zeilen 
19-30 oben an (die Zeilennummern werden vom Spectrum automatisch ge- 
holt) und fahren Sie das, damit Sie sehen, was dabei herauskommt. 


a 1 LETb=7 
2 FORa=2T021 
40 NEXTa 


b 1 LETa=15 
2 FORb=9TO22 
40 NEXTb 


c 1 LETa=2+15*RND 
2 LETb = 20*RND 


40 GOTO1M 
(Drücken Sie hier BREAK, um den Computer zu erlösen) 
Sobald Sie sich mit Subroutinen (Unterprogrammen) auskennen, werden Sie 
für diese Fähigkeit, eine bestimmte Form an einer beliebig gewählten Stelle zu 
zeichnen, vielerlei Verwendung finden. Der nächste Abschnitt beschreibt eine 
haufig vorkommende Anwendung. 
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Bewegte Grafik 


Nehmen wir an, Sie möchten den Panzer von links nach rechts über den 
Bildschirm laufen lassen. Programm b) erreicht das beinahe schon, hinterläßt 
allerdings einen Schwanz von Panzerhecks. Man kann sie durch Überschreiben 
von Leerstellen loswerden, aber am hübschesten geht es mit einem "unsicht- 
baren Rand’, der das automatisch bewirkt. Verändern Sie die Zeilen 10-30 
folgendermaßen: 


1 LETa=15 

2 FORb=9TO21 

18 PRINTATa-2,b+t23 " [nr mm' 
20 PRINTATa-1,b "JH H HB BRM' 


30 PRINTATab "J[UIBOBDB GO DL" 
40 NEXTb 


Beachten Sie die Leerstellen, die vor jeder Grafikzeile neu hinzugekommen sind. 
(Um zu vermeiden, daß wir über den Rand laufen, lassen wir b in Zeile 2 nur bis 
21 gehen.) 

Der Rand aus Leerstellen ist auf dem Bildschirm nicht sichtbar. So, wie 
der Computer Zeichen anzeigt, heißt das aber, daß diese Leerstellen auf den 
unliebsamen "Schwanz" geschrieben werden und ihn damit löschen. (Nach 
einem alten Spruch fegen die Füchse ihre Spuren mit der Rute weg - das tut 
unser Panzer auch, nur ist sein Schweif unsichtbar.) 

Wenn wir den Panzer in die entgegengesetzte Richtung laufen lassen 
wollen, brauchen wir auch am rechten Ende einen unsichtbaren Rand. Um den 
Panzer nach oben zu bewegen, ist ein Rand darunter erforderlich, soll er nach 
unten, ein Rand über ihm. Soll er sich in alle Richtungen bewegen (indem wir 
a und b entsprechend abändern), setzen wir den Rand um den ganzen Panzer, 
brauchen in den Reihen a-3 und at1 also zwei Zeilen Leerstellen zusätzlich. 


Aufgabe 


Schreiben Sie ein Programm, mit dem der Panzer ständig um ein Bildschirm- 
quadrat herumfährt, das die Größe 19 mal 1® hat. Setzen Sie rundherum 
unsichtbare Ränder; berechnen Sie, wie a und b sich verändern müssen; pro- 
grammieren Sie das. 


‚Bewegungssteuerung mit dem Keyboard 


Da wir jetzt Dinge zeichnen können, die sich nach Wunsch bewegen, kann auch 
das Keyboard dazu verwendet werden, die Bewegungen von außerhalb des 
Programms zu steuern. 

Auf plumpe Weise geht das, indem man das Programm als Schleife 
schreibt und über das Keyboard per INPUT etwas eingibt. Das hält alles, auch 
das bewegte Display, solange auf, bis die Tasten gedrückt werden. 
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Besser ist der INKEY$-Befehl. Eine Programmzeile 
10 LET c$ = INKEYS$S 


befiehlt dem Computer, festzustellen, welche Taste gedrückt wird, und der 
Stringvariablen c$ das entsprechende Zeichen zuzuteilen. Wenn Sie mit diesem 
Zeichen geschickt umgehen, können Sie alles Mögliche anstellen. 

Beispiel: Lenken wir den Panzer nach links oder rechts, wobei wir Taste 
5 für links und Taste 8 für rechts verwenden. (Das ist wegen der Pfeile auf den 
Tasten eine Gedächtnisstütze für Sie, aber es ist nicht notwendig, CAPS SHIFT 
zu drücken und die Pfeile tatsächlich einzugeben.) Was machen wir? Wir 
weisen den Computer an, das INKEY$ zu lesen und die Anzeigeposition je 
nachdem zu verändern, ob 5 oder 8 gedrückt worden sind. 
Also so: 


1 LETb=15 

2 LETa=12 

3 LETc$ = INKEY$S 

6 IFc$= "5" THENLETb = b-1 

7 IFc$= "8" THENLETb =b+1 

® PRINTATa-2,b+23 | WBB PS PFMBEB LU" 
20 PRINTATa-1,b "[|[BBH HH BR BB _" 


30 PRINTATab’JBDOD BDO RD UL" 
40 GOTO3 


Beachten Sie den unsichtbaren Rand an beiden Seitenkanten. Der Haken dabei: 
Wenn Sie die Tasten zu lange drücken, können Sie seitwärts vom Bildschirm 
rutschen. Versuchen Sie das Programm so abzuändern, daß das verhindert wird, 
indem Sie Zeilen einfügen älalFa<® THEN... dieses oder jenes. 

Solange Sie eine Taste gedrückt halten, geht das Programm weiter, und 
der Panzer bleibt in Bewegung. Manchmal ist das ausgesprochen ärgerlich; oft 
willman in Wahrheit, daß das Programm nur auf Veränderungen in INKEY$ oder 
wenigstens nur auf wiederholtes Drücken anspricht. 


3 IFINKEY$ <>"" THENGOTO3 
4A IFINKEY$ = ""THENGOTO4 
5b LETCS = INKEY$S 


Das hat die Wirkung, daß bei Zeile 3 alles zum Stillstand kommt, wenn Sie 
immer noch die alte Taste gedrückt halten. Sobald Sie loslassen, geht der 
Computer zu 4 und bleibt dort stehen. Drücken Sie eine neue Taste oder erneut 
die alte - schon geht es weiter! 

WARNUNG: Überlegen Sie sich genau, was der Computer Ihrem Befehl 
entsprechend mit diesem Inkey$ tun soll. Sie möchten vielleicht nur Tasten 
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drücken, die Zahlen liefern, um dan VAL INKEY$S zu bestimmen, mit dem die 
Zahl von einem Zeichen in etwas verwandelt wird, das man wirklich für arith- 
metische Berechnungen verwenden kann. Um aber das Programm starten zu 
können, müssen Sie ENTER drücken. Manchmal liest der Spectrum jedoch das 
als INKEY$S und versucht es in eine Zahl zu verwandeln - das Programm bricht 
zusammen. Oder noch schlimmer: Werden keine Tasten gedrückt, berechnet er 
VAL (den leeren String). Das kann etwas verwirrend sein, bis Sie begriffen 
haben. (Sie können sich durch die Verwendung geeigneter IF... THEN...- 
Befehle dagegen schützen.) 


PRINT und PLOT kombiniert 


In manchen Programmen müssen Sie für grafische Displays vielleicht PRINT 
und PLOT gemeinsam verwenden. Wichtig zu merken: PRINTATx, yund PLOT 
X, y bewirken ganz verschiedene Dinge, weil diex, ysich auf zwei sehr verschie- 
dene Koordinatensysteme auf dem Bildschirm beziehen. Das Handbuch von 
Sinclair zeigt im Kapitel 15 ein Schaubild, mit dem beide Systeme dargestellt 
werden. In der Regel lassen sich die beiden Befehle aber am einfachsten 
dadurch richtig verbinden, daß Sie auf kariertem Papier von dem Bereich, wo 
Sie Grafik zeichnen wollen, eine Rohskizze anfertigen. Zeichnen Sie beide 
Koordinatensysteme ein und ziehen Sie die Skizze zu Rate, während Sie Ihr 
Programm schreiben. Es lohnt oft, einige Zeit für das Nachdenken über den 
Programmaufbau aufzuwenden, bevor man sich ans Keyboard setzt. (Dagegen 
fällt es, wenn Ihr erster Versuch schiefgeht, oft leichter, die Fehler durch Expe- 
rimentieren mit dem Computer auszumerzen, statt sich das Gehirn zu zermar- 
tern. Eskommt eben darauf an, Zeit und Mühe möglichst wirksam einzusetzen.) 


PAUSE 


Der Spectrum hat einen PAUSE-Befehl, der ihn veranlaßt, einen festgelegten 
Zeitraum zu warten. Bei bewegter Grafik ist das sehr nützlich, etwa dann, wenn 
man etwas verlangsamen möchte, das sonst zu schnell laufen würde. Wenn Sie 
eine Unterbrechung von n Sekunden erzielen wollen, tippen Sie 


PAUSE 5®*n 
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13 BENUTZERGEWAÄHLTE 
ZEICHEN 


Wenn der Zeichenvorrat ein Zeichen, das Sie brauchen, nicht ent- 
hält, können Sie selbst ein neues erfinden. 


Der Spectrum hat 21 Zeichen, die Sie nach Wunsch verändern können. Das sind 
im Zeichenvorrat die Nummern 144-164. Zunächst sind sie als die Buchstaben 
A-U ausgelegt. Um Zugang zu ihnen über die Tastatur zu erhalten, gehen Sie in 
den ""G’"’-Modus und drücken die entsprechende Buchstabentaste. 

Die Methode, Ihre eigenen Grafikzeichen zu entwickeln, ist im Grunde 
einfach, verdient aber eine angemessene Erläuterung, weil das eine wirklich 
elegante Sache ist und man damit aus einem langweiligen Programm etwas 
ganz Besonderes machen kann. 

Der erste Schritt: Sie skizzieren das gewünschte Zeichen auf einem Gitter 
8 mal 8 und schwärzen die Quadrate, die INK-Farbe haben werden, wenn das 
Zeichen angezeigt wird. Beispiel: Abbildung 13.1 zeigt ein "Katzen”-Zeichen 
aus dem Band "Computerrätsel: für Spectrum und ZX81” (erschienen bei 
Shiva). 





Abbildung 13.1 


Ersetzen Sie nun die schwarzen Quadrate jeweils durch 1, die leeren jeweils 
durch ®. Sie erhalten eine Liste dieser Art: 


0 41 0 9014 0 1 d 
0 141 1 1 1 0 141 ) 
0 141 1 1 1 0 141 ) 
0 9 4 1 096 4 Ö 
1 1 1 1 1 0 14 ) 
1 1 1 1 1 1 10% 
0 1 1 1 1 1 0 9 
98 Od GG OB ad 


6/ 


Anschließend bestimmen Sie, welchen Buchstaben Sie verwenden wollen. Der 
naheliegende ist "C”. 

Der mühsame (aber einfache) Weg besteht darin, über die Tastatur die 
folgenden Befehle einzugeben: 


POKE USR '"'C”, BIN 01901919 
POKE USR °C” +1, BIN 91111919 
POKE USR "'C” +2, BIN 91111919 
POKE USR "C’” +3, BIN 90119919 
POKE USR "'C” +4, BIN 11111919 
C 
C 


@) 


POKE USR "C” +5, BIN 11111119 
POKE USR "C” +6, BIN 01111100 
POKE USR "C” +7, BIN d0000009 


Betrachten Sie das, wenn Sie wollen, als ein Stück Zauberei! POKE stellt 
bestimmte Informationen in den Computerspeicher (siehe Kapitel 23 über PEEK 
und POKE), USR teilt ihm lediglich mit, daß usergewählte Zeichen in Aktion 
sind, BIN steht für “"binär’'. Wichtig dabei sind das ''C”, also der Buchstabe, den 
Sie gewählt haben, die angefügten Zahlen 1,2,... 7 und die Folgen von ® und 
1, die ihrerseits von der Tabelle nach meinem Katzenbild abgeschrieben sind. 

Jedes 8x8- Muster von Nullen und Einsen kann so behandelt werden; der 
Computer speichert auf einmal bis zu 21 verschiedene benutzergewählte Zei- 
chen. Sie werden durch NEW nicht gelöscht, mit SAVE aber auch nicht gesi- 
chert. 

Es gibt noch andere Methoden, die Zeichen zu erzeugen. Ich habe ein 
Fertigprogramm geschrieben (ZEICHENKONSTRUKTEUR), mit dem Sie Ihr 
Zeichen konstruieren und es dann laden können. Ein Weg ist der, die Binär- in 
Dezimalzahlen zu verwandeln - etwa durch direkte Befehle wie 


PRINT BIN 01991919 
was die Zahl 74 ergibt. Die Reihen der Katze in Dezimalzahlen lauten 
74,122, 122, 50, 259, 254, 124, ® 


Statt mit POKE in den BIN herumzustochern, können Sie diese Zahlen auch 
direkt verwenden: 


POKE USR "C”, 74 
POKE USR "C” +1, 122 


POKE USR "C” +7,® 
Wenn Sie diese Anweisungen ins Programm schreiben, können Sie die Zeichen 
bei einem Lauf mit RUN aufbauen, und wenn Sie das Programm sichern, 
werden auch die Zeichen gesichert. 
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Sie können die Zeichen auch damit sichern, daß Sie eine Abart von SAVE 
verwenden, die einen Speicherblock sichert, und auf dieselbe Weise mit LOAD 
zurückladen. Für diesen Band hier geht das aber ein bißchen zu weit. 

Selbstverständlich können Sie die Liste der Zahlen 74, 122, etc. als ein 
Array eingeben oder den DATA-Befehl verwenden (siehe Kapitel 18 über 
Daten.) 


Aufgaben 
1 Bauen Sie benutzergewählte Zeichen für die vier Skatkartenfarben auf, 


gespeichert als "H’, "T", "K” und "P’”. Verwenden Sie dazu die Gitter von 
Abbildung 13.2. 


a HE EI 


Abbildung 13.2 





2 Benützen Sie Abbildung 13.3 dazu, ein Zeichen für "1/2" aufzubauen. 





Abbildung 13.3 


3 Entwerfen Sie einen Satz Zeichen für die zwölf Tierkreiszeichen und 
bauen Sie sie in den Positionen A-L auf. 

4 Entwerfen Sie zwei verschiedene Zeichen, die einen Hund darstellen und 
sich nur durch die Schwanzstellung unterscheiden. Zeigen Sie sie mit 
PRINT abwechselnd an einem festen Platz an und sorgen Sie dafür, daß 
der Hund mit dem Schwanz wedelt. 

5 Machen Sie einen gehenden Menschen, vielleicht so, daß Sie mehrere 
aneinandergefügte Zeichen verwenden. 
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14 SUBROUTINEN 
(Unterprogramme) 


Wenn Sie eine Aufgabe in eine Anzahl unterscheidbarer Unterauf- 
gaben zerlegen können, wird eine mächtige Waffe im Arsenal des 
Programmierers zugänglich: Subroutinen (Unterprogramme). 


Es gibt eine Geschichte über Mathematiker, die ebenso für Programmierer 
gelten könnte (ja, es sind zwei verschiedene Lebewesen!). Sie hat damit zu tun, 
wie man Teewasser aufsetzt. Der Mathematiker wird zunächst aufgefordert, die 
einzelnen Schritte zu beschreiben, die zu einer fertigen Tasse Tee führen, wenn 
der Teekessel an einem Wandhaken hängt. Er sagt dann etwa: "Nimm den 
Teekessel vom Haken, füll ihn mit Wasser, stell ihn auf den Herd, zünde ein 
Streichholz an...” und so weiter. Danach soll er die Schritte schildern, die zu 
einer fertigen Tasse führen, wenn der Teekessel auf dem Kuüchentisch steht. Er 
antwortet: "Häng den Teekessel an den Haken und verfahre wie vorher.” 

Was macht er da? Er verwendet den ersten Ablauf als eine Subroutine (ein 
Unterprogramm). Beim zweitenmal verändert er die bestehende Lage so, daß 
die Subroutine anwendbar wird, und verwendet sie dann so, als sei ein einziger, 
unteilbarer Ablauf gegeben. 

In der Computersprache ist eine Subroutine ein Programmblock, der 
selbständig geschrieben und wiederholt als Bestandteil eines größeren Pro- 
gramms verwendet werden kann. Subroutinen stellen eine sehr verfeinerte Art 
dar, Programme zu schreiben, weil man mit ihnen im Regelfall leichter erkennen 
kann, was vorgeht. Außerdem läßt sich ein Programm, das mit Subroutine 
geschrieben ist, leichter von Fehlern befreien, weil man jedes für sich "entfeh- 
lern’’ kann und dann nur noch zu prüfen braucht, ob sie richtig miteinander 
verbunden sind. 

Der dafür zuständige Befehl ist GO SUB. Das ist ähnlich wie GO TO, aber 
beträchtlich vielseitiger. Er tritt in typischer Art folgendermaßen auf: 


100 GO SUB 500 
110 anderes Zeug 


570 RETURN 


wobei, wie üblich, der kleingedruckte Text andere Programmteile bezeichnet. 
Bewirkt wird dadurch Folgendes: 


a Sobald das Programm auf Zeile 109 stößt, springt es zu 50® und merkt 
sich, wo es hergekommen ist. 
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b Es führt dann 599 und alles Folgende aus, bis es zu Zeile 570 kommt und 
einen RETURN-Befehl erhält. 

c Es kehrt dann zur Ursprungszeile (hier 1®®) zurück und führt die nächst- 
folgende Anweisung aus. 


Im Grunde ist das wie GO TO, nur findet die Rückkehr zum Ausgangspunkt 
automatisch statt. Die Haupteigenschaft ist aber die, daß man einunddieselbe 
Subroutine von verschiedenen Zeilen im selben Programm aus anspringen 
kann. Der Computer behält im Gedächtnis, wo er eingestiegen ist und kehrt mit 
RETURN wieder dorthin zurück. 

Als Beispiel zeige ich Schritt für Schritt, wie ein Programm geschrieben 
wird, das 


d die Tasten 5, 6, 7, 8 dazu verwendet, auf dem Bildschirm einen Cursor PP] 
zu bewegen, 
e anstelle des Cursors jede Zeicheneingabe vom Keyboard anzeigt. 


Für diese Zeicheneingabe müssen wir INKEY$ verwenden. Wir lesen damit die 
jeweils gedrückte Taste und teilen sie einer Stringvariable a$ zu. Wir wollen, daß 
das Programm nur auf neu gedrückte Tasten reagiert, wie das auf Seite 65 
beschrieben ist, benötigen also einen Programmblock in der Form 


1000 IFINKEY$ <> "" THEN GO TO 1909 
1010 IFINKEYS =" THEN GO TO 1919 wird die Subroutine 
1020 LET a$ = INKEY$S 


Die 10®der-Zeilennummern werden verwendet, weil das eine Subroutine sein 
wird und wir sie weit wegstellen wollen (allerdings kann man oft einige Pro- 
grammzeilen sparen, wenn man alle Subroutinen an den Anfang stellt und den 
Lauf mit GO TO und nicht mit RUN beginnt - aber das ist eine Verfeinerung, auf 
die hier einzugehen nicht lohnt). Um wieder herauszukommen, brauchen wir 
die zusätzliche Zeile 


1930 RETURN 


Um diesen [P]-Cursor bewegen zu können, brauchen wir als nächstes... was? 
Auf jeden Fall müssen wir ja einmal wissen, wo er angezeigt werden soll. Wir 
erfinden also zwei Variable a und b für die Werte von Reihe und Spalte, wo mit 
PRINT angezeigt werden soll. Damit das Ganze nicht zusammenbricht, bevor 
wirrichtig angefangen haben, müssen wir ihnen Werte zuteilen. Die Bildschirm- 
mitte ist ein guter Ausgangspunkt. 


18 LETa=19 
20 LETb=15 


Nun wollen wir die Tasten 5, 6, 7, 8 dazu verwenden, a und b zu verändern, um 
damit den Cursor zu bewegen. Die brave Subroutine oben wird die Tastatur 
lesen, also ergibt sich naheliegenderweise als nächstes 


30 GO SUB 1909 
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Nun wird a$ uns mitteilen, welche Taste von 5, 6, 7, 8 gedrückt worden ist. Wir 
wollen den Cursor [P] in der Richtung der vier Pfeile auf diesen Tasten bewegen. 
(Deshalb verwenden wir sie auch - die Pfeile sind gute Gedächtnisstützen!) 





Abbildung 14.1 


Sehen Sie sich Abbildung 14.1 an. Sie zeigt Position a, b und die vier 
Nachbarn. Wenn wir die Hinweise im Bild nutzen, sehen wir, was wir haben 
wollen: 


Taste 5 soll b zu b -1 verändern und a in Ruhe lassen, 
Taste 6 solla zua +1 verändern und b in Ruhe lassen, 
Taste 7 sollazu a -1 verändern und b in Ruhe lassen, 
Taste 8 soll bzu b +1 verändern und a in Ruhe lassen. 
Hier ein Weg: 
40 IFa$= "5" THENLETb=b-1 
560 IFa$="6"THENLETa=a+l1 
60 IFa$="7"THENLETa>=a-1 
70 IFa$= "8" THENLETb=b+1 


Nachdem wir den Cursor bewegt haben, möchten wir sehen, wo er hingegan- 
gen ist; spaßeshalber lassen wir ihn blinken: 


80 PRINTATa, b; FLASH 1; "P" 


Und weiter? Wir wollen anstelle dieses [P] ein Zeichen eingeben, das angezeigt 
werden soll. Wieder die Subroutine! 


90 GO SUB 1999 
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Diesmal liest der Computer das Keyboard, teilt a$ den Wert zu, den er dort findet 
(jeweils das, was wir gedrückt haben, a,b, c, d, ..., 7,3, >,...) und kehrt zur 
nächsten Zeile nach Zeile 90 zurück, Um ihm zu sagen, daß er das gefundene 
Zeichen anzeigen soll, müssen wir noch anfügen 


10990 PRINTATa,b; a$ 


Fast fertig. Bis jetzt läuft das Ganze nur einmal. Wir wollen wieder zum Anfang 
zurück und neu beginnen - das neue a, b aber behalten und es nicht auf 19, 15 
zurücksetzen. Das ist einfach: 


118 GOTO 39 


(30 schickt ihn dann sofort wieder zu 1009 zurück. Warum funktioniert 110 GO 
SUB 1999 nicht?) 

Geben Sie alle oben aufgeführten Zeilen ein (wir haben dafür gesorgt, 
daß die Nummern in der richtigen Reihenfolge sind, was nicht immer gleich 
beim erstenmal der Fall ist, wenn man ein Programm schreibt; lassen Sie sich 
also nicht irreführen!) und drücken Sie RUN. Passieren wird gar nichts, aber 
wenn Sie 5, 6, 7 oder 8 drücken, werden Sie den [P]-Cursor an seiner neuen 
Position sehen. (Wenn Sie irgend etwas anderes drücken, erscheint er beim 
alten a, b- ein Programmvorteil, an den wir gar nicht gedacht hatten.) Drücken 
Sie dann eine Taste, meinetwegen t. Das P] verschwindet und macht einem t 
Platz. Bewegen Sie den (jetzt unsichtbaren) Cursor mit 5, 6, 7, 8; zeigen Sie das 
nächste Zeichen an und machen Sie so weiter. Sie können den ganzen Bild- 
schirm mit Wörtern beschreiben. (Wie wäre es mit einem Programm für com- 
puterunterstützte Kreuzworträtsel-Konstruktion?) 

Damit das Programm an den Bildschirmrändern nicht zusammenbricht, 
ist ein klein wenig Userschutz von Nutzen: 


75 IFa<®ORa>21 ORb<PORb>31 THEN GO TO 30 


Ihnen fallen sicher noch mehr Verbesserungen ein. 


Aufgabe 


Generieren Sie statt der Subroutine INKEY$ sowohl Eingaben mit 5, 6, 7,8 als 
auch die mit PRINT anzuzeigenden Zeichen per Zufall; setzen Sie das Ganze in 
Gang und warten Sie die Entwicklung ab. Verwenden Sie, um Zufallszeichen zu 
erhalten, Befehle wie PRINT CHRS$S INT (65 +26 * RND), was zufällig aus dem 
Alphabet auswählt. (Warum?) 


Hier noch ein Beispiel — eine Einführung in die Computer-Kunst. Gezeichnet 
werden Zufallsquadrate, schwarz oder kariert, bis der Speicherplatz zu Ende 
geht oder Sie mit BREAK unterbrechen. 


10 LETa=19*RND 
20 LETb=19*RND 
30 LETq=5*RND 
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40 LETr=5*RND 
50 LETkK=INT(2* RND) 
60 IFk=®THENLETM$S= "WW 
70 IFk=1THENLETmM$= "WM" 
80 GO SUB 1909 
90 GOTO1P 

10900 FORi=aTOatg 

10918 FORj=bTOb+r 

1020 PRINT AT i, j; m$ 

1030 NEXTj 

1048 NEXTi 

1050 RETURN 


Aufgabe 


Generieren Sie eine Zufallszahl zwischen 1 und 6 mit INT (1 +6* RND). Zeigen 
Sie je nachdem, wie diese Zahl, sagen wir n, lautet, auf dem Bildschirm bei der 
Mitte n Punkte in genau der Anordnung an, wie sie auf einem Würfel erschei- 
nen. Wiederholen Sie das, wenn ENTER gedrückt wird. 

Erfinden Sie dazu eine Subroutine für jede der sechs Möglichkeiten. 
Wenn die Subroutine für n ab (meinetwegen) Zeile 500 +1®® * n geschrieben 
wird (das heißt also, bei 609, 700 und so weiter) und deutlich vor dem Beginn 
der nächsten endet, können Sie schwindeln und GO SUB 500 +100 * n 
verwenden, um komplizierte bedingte Sprünge zu vermeiden. Sie brauchen 
aber auf jeden Fall sechs getrennte RETURN-Befehle... 

Verwenden Sie für die Wiederholung mit ENTER eine Zeile, die mit INPUT 
k$ ein Eingabezeichen verlangt; setzen Sie fort mit einem GO TO-Befehl, der 
alles wieder zum Anfang zurückschickt. k$ wird für gar nichts verwendet, aber 
der Computer wartet darauf, erhält ENTER und geht weiter zum GO TO. Alles 
klar? 
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15 SON ET LUMIERE 


Der Spectrum singt den Blues. 


Probieren Sie Folgendes: 


19 FORi=1TO6 


20 INKi 

30 CIRCLE 199, 80, i* 19 
40 BEEP®.,, i 

50 NEXTi 


Das mag nicht sonderlich aufregend sein, veranschaulicht aber ein paar Punkte. 
Erstens läßt sich erkennen, wie wir die Farbe des Symbols verändern können, 
das grafisch gesetzt oder mit PRINT angezeigt wird. Wir geben einfach die mit 
der gewünschten Farbe verbundene Zahl in einer INK-Anweisung an. Wir 
brauchen uns nicht zu merken, welche Zahl welcher Farbe entspricht, weil die 
Farben über den entsprechenden Ziffern auf dem Keyboard angegeben sind. Im 
obigen Programm wird also beim erstenmal Zeile 19 mit i = 1 ausgeführt; die 
Anweisung “INK 1” wird von BASIC verstanden als “verwende bis auf weiteres 
für Anzeigen und Zeichnen blaue Tinte”. Das einzige, was gezeichnet wird, 
solange blaue " Tinte’ Verwendung findet, ist freilich der kleinste Kreis. Bis der 
nächste Kreis gezeichet wird, ist Zeile 20 zu "INK 2’ geworden, also rot, und so 
weiter. 

Sobald ein Kreis fertig ist, laßt der Computer ein triumphierendes Piepen 
hören. Das ist die Folge von Zeile 40. Der erste Wert nach BEEP liefert die Dauer 
des Tons in Sekunden (in diesem Programm dauert also jeder 9.5 Sekunden, 
obwohl sich das länger anhört, nicht?), der zweite bestimmt den Ton, der 
gespielt werden soll. Ist dieser Wert Null, dann ist der Ton das mittlere C, 1 ist 
C*,2istD, 3 ist D*, 4 ist E,5 ist F (einen Ton E* gibt es nicht!), und so weiter. 
Negative Werte führen unter das mittlere C. So ist -1 B, -2 A*, etc. 

Die einfachste Verwendung von BEEP ist die, dem User anzuzeigen, daß 
etwas geschehen ist (etwa ein Fehler im Programm) oder daß der Computer auf 
Eingabe wartet oder sie angenommen hat. Natürlich kann man damit auch 
Musik machen, aber das möchte ich auf später verschieben (siehe Fertigpro- 
gramme) und mich hier mit anderen Eigenschaften des Farbensystems befas- 
sen. 

Erstens läßt sich nicht nur die Inkfarbe verändern. Der Hintergrund (den 
BASIC recht sinnvoll PAPER, also Papier nennt) kann acht verschiedene Far- 
ben haben. Wenn INK und PAPER von derselben Farbe sind, sehen Sie natür- 
lich gar nichts, was Verwirrung stiften kann, wenn Sie LIST drücken, nachdem 
ein Programm gelaufen ist, das die Farbe von INK zu der von PAPER verändert. 
(Ich erwähne das deshalb, weil mir das immer wieder unterläuft und ich mich 
dann frage, weshalb eigentlich das Programm gelöscht worden ist. Das ist 
natürlich gar nicht der Fall, ich kann es nur nicht sehen.) 
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Sie erwarten jetzt vielleicht, daß Sie "PAPER 2’ eingeben können und 
einen roten Hintergrund erhalten, aber wenn Sie diese Anweisung meinetwe- 
gen in Zeile 5 in das Programm einschalten, passiert, sobald Sie RUN gedrückt 
haben, gar nichts. Der Grund: Das System kann die Farbe von PAPER, das 
schon beschrieben worden ist, nicht verändern, und es kann nicht sicher sein, 
daß nichts geschrieben worden ist, bis es einen CLS (clear screen) -Befehl 
ausgeführt hat. Der Computer reagiert also erst bei der Begegnung mit CLS auf 
den neuesten PAPER-Befehl. 

Man kann ferner die Randfarbe verändern (beispielsweise, wenn man 
BORDER 4 eingibt, um einen grünen Rand zu erhalten), und das gilt von dem 
Augenblick an, in dem der Befehl auftaucht. Wenn Sie also einfügen 


25 BORDERi 


wird der Rand stets dem gezeichneten Kreis entsprechen. 
Verändern Sie Zeile 25 so: 


25 BORDER7--i 


Das ist ein bißchen auffälliger (um nicht zu sagen: geschmacklos), nicht wahr? 
Fügen Sie jetzt folgende Zeilen an: 


"60 INKA4 
780 PLOT 199, ® 
80 DRAW 9, 175 
9d PLOT, 80 
190 DRAW 255, ® 


und drücken Sie RUN. 

Wie Sie erwartet haben, wird ein grünes Fadenkreuz eingezeichnet, aber 
wenn Sie genau hingucken, werden Sie sehen, daß alle Kreise in dem Bereich, 
wo das Fadenkreuz sie schneidet, grün gefärbt worden sind. Das ist kein Defekt 
Ihres Fernsehapparats oder eine Macke im Spectrum, sondern eine Eigenheit 
der Art, wie der Spectrum das Display behandelt. (In der Computersprache wird 
ein Fehler, den man nicht beheben kann, stets als "Eigenheit’' bezeichnet, damit 
der Eindruck erweckt wird, das gehöre so.) Der Grund für dieses seltsame 
Verhalten ist jedenfalls der, daß die Attribute eines Punktes auf dem Bildschirm 
(also seine Farbe, die Helligkeit, ob er blinkt) nicht auf nur ein Pixel beschränkt 
sind. Sie beziehen sich auf ein ganzes Zeichen, das, wie wir bereits gesehen 
haben, 64 Pixel in einem Quadrat 8 X 8 belegt. Wenn Sie die Farbe eines Pixels 
verändern, wechseln alle anderen vom selben 8 x 8-Bereich die Farbe. 

In den meisten Fällen ist das erträglich. In der Regel treten auch keine 
Probleme auf, wenn man die Helligkeit eines Zeichenquadrats verändert. Das 
geschieht durch die Anweisung BRIGHT 1, um die Helligkeit zu steigern, und 
BRIGHT ®, um sie wieder zu verringern. Sobald ein BRIGHT 1-Befehl ausge- 
führt worden ist, wird alles hell gezeichnet, bis das nächste BRIGHT ® auf- 
taucht. Wollten wir also die zwei inneren Kreise heller haben als die anderen, 
könnten wir die Anweisungen hinzufügen 
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5 BRIGHT 1 
23 IFi>2THEN BRIGHT ® 


Blinken ist eine ganz andere Sache. Sie können Blinken zu- und abschalten 
durch FLASH 1 und FLASH 9, ganz ähnlich wie beim Umgang mit BRIGHT. 
Falls Sie das aber beim Programm für das Zeichnen der Kreise versuchen, 
blinken wegen dem Problem mit den Attributen große Bildschirmblöcke Sie auf 
recht entnervende Weise an. Probieren Sie 


4 FLASH 1 
6 CLS 


um zu sehen, was ich meine. (Wie PAPER braucht auch FLASH ein CLS, um in 
Aktion treten zu können.) Mag sein, daß Sie für ein solches Display Verwen- 
dung haben. Die einzige, die ich mir vorstellen kann, ist die, Migräne bei 
Laborratten hervorzurufen. 

Allgemein wird FLASH also vorwiegend in PRINT-Anweisungen ver- 
wendet, wo wir ganze Zeichenquadrate blinken lassen wollen, statt bei PLOT, 
DRAW und CIRCLE, wo die Effekte eher unerwünscht sein dürften. 

Noch besser: Alle Attribute, INK, PAPER, FLASH und so weiter können 
eingebettet’ werden in einen PRINT-Befehl. Ihre Wirkung wird dadurch auf 
die Symbole begrenzt, die mit dieser Anweisung angezeigt werden; außerdem 
brauchen Sie kein CLS, um sie wirksam zu machen. Beispielsweise können Sie 
schreiben 


118 PRINTAT 19, ®; INK 5; FLASH 1; PAPER 4; "xxx" 


und RUN geben (nachdem Sie Zeile 4 gelöscht und FLASH ®: CLS als direkten 
Befehl eingegeben haben, um das Blinken loszuwerden), so daß nur die x 
blinken. Wenn Sie jetzt LIST drücken, werden Sie sehen, daß (wegen Zeile 69) 
INK immer noch grün ist, obwohl sie in 11® auf hellblau gesetzt wurde, und das 
Listing nicht blinkt. 

Ich habe mich nicht mit allen Möglichkeiten der Displaybehandlung 
befaßt, die der Spectrum zuläßt, und werde das auch nicht tun. Sie haben einen 
Einführungsband vor sich. Sein ganzer Sinn besteht eben darin, Sie nicht mit zu 
vielen Einzelheiten zu belasten. Wenn Sie diese Methoden beherrschen, werden 
Sie natürlich den Rest aus dem Handbuch erlernen wollen. Das dürfte dann 
nicht allzuschwer fallen. 

Zum Abschluß noch drei kleine Punkte. Erstens: Daß der Bildschirm 
geleert werden muß, bevor manche Attribute ihre Wirkung entfalten, heißt 
nicht, daß Sie unbedingt CLS eingeben müssen. Beispielsweise hat das 
Drücken der Taste ENTER ohne vorherige Eingabe dieselbe Wirkung wie CLS: 
LIST. Stattalso FLASH: CLS zu tippen, um das Blinken zu unterbinden, können 
Sie FLASH ® geben und dann ENTER statt nur einmal gleich zweimal drücken. 

Zweitens: Es wird Ihnen aufgefallen sein, daß der Randbereich knapp 
unter dem Paper sonderbar reagiert, sich nicht immer verändert, wenn er dastun 
sollte, sondern seine Farbe am Beginn eines Laufs beibehält. Vielleicht ist Ihnen 
klargeworden, daß das die Befehls- und Meldezeile ist (also der Platz, wo das 
BASIC-System mit Ihnen Verbindung hält). Da liegt der Hund begraben: Das 
BASIC-System will nicht in die vorhin erwähnte Falle tappen, mit Ink grün auf 
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Paper grün zu schreiben. Schließlich ist es ja sehr wichtig, daß Sie erfahren, 
wann Ihnen etwas mitgeteilt werden soll. Tatsächlich wird je nach Randfarbe 
zwischen Schwarz und Weiß gewechselt, damit das Resultat so deutlich wie 
möglich ausfällt. Dieser Bereich hat also bei jedem Lauf eine feste Farbe. Wenn 
Sie das ganze Programm durch Einfügen von 


120 RUN 


in eine Schleife setzen und an verschiedenen Stellen mit BREAK hineingehen 
und wieder CONT drücken, werden Sie die Wirkung ganz deutlich erkennen. 

Drittens eine Stilfrage: Wenn Sie "FLASH 1" schreiben, schalten Sie die 
Blinkwirkung zu. Viel schöner wäre doch, wenn Sie schreiben könnten, 
“FLASH an’ und "FLASH aus” oder "BRIGHT an’ und "BRIGHT aus”, statt 
das doch recht sinnlose ® und 1 zu verwenden. Das geht ganz leicht. Fügen Sie 
eine Zeile 1 an: 


1 LETan=1:LETaus=® 


Wenn Sie jetzt "FLASH an’ schreiben, ersetzt BASIC 1 durch "an’ (oder ® 
durch “aus’'), und das Programm liest sich besser. 


Arrays 


Man kann eine Gruppe von Speicherzellen zusammenfassen, indem man ihnen 
denselben Namen gibt. Eine solche Gruppe wird Array genannt (deutsch etwa: 
Feld, Tabelle). Wir können uns das so vorstellen: Hier ist ein Speicherblock: 


fred g (1) 
g (2) g 
total g (3) 
Jim g (4) 


Im Normalfall würden wir jeder Zeile einen Namen geben (fred, i, etc.), wie links 
zu sehen. Wir können aber alle vier Zellen beim gleichen Namen nennen (ich 
habe 'g’' gewählt), wie Sie rechts erkennen. Wenn wir diesen Weg wählen (und 
warum wir das wollen, wird nicht auf Anhieb klar sein), muß dreierlei berück- 
sichtigt werden: 


1 Ein Arrayname ist stets ein einzelner Buchstabe, also können Sie ein Array 
nicht t2 oder albert nennen. 

2 Arrays können so lang sein, wie Sie wollen (innerhalb der Grenzen, die 
der Speicher des Geräts setzt). Sie müssen BASIC also sagen, wie groß 
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jedes ist, bevor Sie es verwenden. Dafür gibt es eine DIM-Anweisung 
(DIM für dimensionieren). Sie sähe beim Array im Diagramm so aus: 


10 DIM g(4) 


Mit anderen Worten: Der Name des Arrays wird zusammen mit der Zahl 
seiner Zellen in Klammern angegeben. 

3 Wir müssen einzelne Zellen innerhalb des Array unterscheiden können. 
Wie das gemacht wird, ergibt sich aus dem Diagramm; die erste Zelle wird 
als g(1) bezeichnet, die zweite als g(2) und so weiter. 


Sehen wir uns an, wie eine Folge von 2® Zahlen in ein Array gesetzt werden 
könnte. Am einfachsten wäre die Schreibweise: 


1 DIMn(29) 
2 INPUTn(1) 
30 INPUT n(2) 
40 INPUT n(3) 


210 INPUT n(2®) 


Das ist aber ersichtlich mühsam und besitzt, wie deutlich erkennbar, keinen 
Vorteil gegenüber der Verwendung einzelner Variablennamen, weil in den An- 
weisungen von 2 bis 210 jedes Arrayelement eigens benannt wird. 

Der Kniff dabei ist aber der, daß der Klammerinhalt keine Zahl zu sein 
braucht. Wir können also zum Beispiel von n (z) sprechen. Das bedeutet n (2), 
wenn z = 2 und n (17), wenn z = 17. 

Jetzt ist das Problem leicht zu lösen. Wir sehen, daß der Wert in Klammern 
in Einerschritten von 1 zu 2® geht - das Stichwort für eine FOR-Schleife: 


19 DIMn (29) 

20 FORz=1TO2® 
30 INPUT n (z) 

40 NEXTz 


Beim ersten Durchgang durchdie Schleife ist z = 1, also entspricht Zeile 30 dem 
Befehl INPUT n (1). Beim zweitenmal ist z = 2, Zeile 30 demnach INPUT n (2), 
und so weiter. Ich habe den Variablennamen "z’’ ganz bewußt gewählt. Er zeigt 
nämlich die ganze Zeit auf das jeweilige Arrayelement, eine sehr nützliche 
Methode für den Umgang mit Arrays. 
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CHR$ mit Musik 


Mit Arrays wollen wir jetzt etwas Interessantes anstellen. BEEP haben wir schon 
kennengelernt und erwähnt, man könne damit Musik machen, obschon das auf 
der niedrigsten Ebene mühselig wäre, weil wir für jeden Ton die Zahl errechnen 
und dann eine ganze Reihe von BEEP-Befehlen mit den entsprechenden Zahlen 
eingeben müßten. 

Warum soll nicht der Computer die Arbeit tun und die Umrechnung von 
Tönen in Zahlen für uns übernehmen? 

Wir wollen am Anfang beim Einfachen bleiben und nur in einer Oktave 
arbeiten, nämlich in der um das mittlere C. Die Zahlencodes für diese Töne sind: 


A :-3 D*: 3 
At: 2 4 
B :-1 5 
C:® F*t:6 
C*#: 1 G :7 
D: 2 G*:8 


Da die erhöhten Töne stets einen Wert höher liegen als der entsprechende Ton 
ohne Vorzeichen, brauchen wir keine Tabelle. Die erforderliche Grundinforma- 
tion sieht also so aus: 


A :-3 
B : -1 
C ) 
D 2 
E 4 
F 5 
G 7 


Ein klarer Zusammenhang zwischen diesen Zahlen besteht nicht, also empfiehlt 
es sich, sie in ein Array aufzunehmen und herauszusuchen, sobald wir sie 
brauchen. 


Sie zu speichern, ist einfach; wir könnten schreiben: 


10 DIMs(7) 
20 LETS(1)=-3: LETs (2) = -1:LETs(3) =: LETsS(4) =2 
30 LETS(5) =4:LETs(6) =5:LETs(7)=7 


(Es gibt andere Wege, die befriedigender wären, wenn wir es mit einem größe- 
ren Array zu tun hätten, aber hier funktioniert das sehr gut.) 
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Wir geben nun einen Ton (als Buchstaben) über das Keyboard ein, 
müssen ihn dann aber dazu benützen können, die entsprechende Zahl im Array 
s "nachzuschlagen”. Mit anderen Worten: Wir brauchen etwa: 


40 INPUT ‘Eingeben Ton’; n$ 
[Ein Prozeß, der den richtigen Wert von p aus dem von n$ 
errechnet (z. B. wenn n$ = "A”, z = 1, wenn n$ = "B”, 
z=2,etc.)] 


1090 BEEP®.5,s (zZ) 
Wir könnten jetzt natürlich eine Folge von Anweisungen schreiben wie: 


45 IFn$"A” THENLETZ=1 
50 IFn$"B"THENLETzZ=2 


und das würde auch gehen, aber es ist umständlich und unschön. Ein besserer 
Weg: Man verwendet die internen numerischen Codes der Zeichen. A’ wird 
danach gespeichert als die Zahl 65, ""B” als 66, und so weiter. (Siehe Anhang 
A des Handbuchs). 

Um den Code für A zu erreichen, können Sie schreiben: 


LET z = CODE A” 
Wenn wir also schreiben: 
50 LETz= CODE n$ 


würden wir für z Werte von 65, 66, 67 erhalten, die offenkundig um 64 größer 
sind, als wir sie haben wollen. Zeile 50 müßte also lauten: 


50 LETZz= CODE n$-64 
Fügen Sie nun noch eine Zeile an, um zur Eingabeanweisung zurückzukehren: 
118 GOTO49 


und wir haben eine (sehr) primitive Klaviatur. (Vergessen Sie nicht, bei der 
Eingabe der Töne Großbuchstaben zu verwenden!) 


Als erstes krankt das daran, daß wir, um es uns leicht zu machen, auf die 
Halbtöne verzichtet haben. Wenn Sie also "'C*" eingeben, erhalten Sie doch C. 
Da die CODE-Funktion den Code des ersten Buchstabens in einem String 
behandelt, wird das "*’' nicht einmal wahrgenommen! 

Wir müssen uns das zweite Symbol im String vornehmen, n$ (2) 


60 IFn$(2) = "*" THENLETiI>=1 
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Dann können wir Zeile 10® abändern zu 
100 BEEP®5,s (zZ) +i 


so daß der gespielte Ton dann, wenn i = 1, um 1 erhöht wird. Selbstverständlich 
muß i am Anfang der Schleife auf Null gesetzt werden, weil i sonst, sobald der 
erste Halbton auftaucht, bei 1 stehenbleibt und alle Töne als Halbtöne behan- 
delt werden: 


45 LETi=® 


Leider wird die Sache dadurch ein wenig kompliziert, daß n$ (2) nicht existiert, 
wenn Sie einen Ton ohne Vorzeichen (etwa nur B) eingeben. So, wie die Dinge 
stehen, läuft das Programm also, wenn Sie C*, A*, G* eingeben, sobald Sie es 
aber mit C versuchen, erhalten Sie eine Fehlermeldung. 

Der einfache Ausweg aus dieser Schwierigkeit ist der, n$ als ein Array von 
der Länge 2 festzulegen: 


11 DIMn$ (2) 


Jetzt existiert n$ (2) immer; wird es nicht verwendet, so besetzt BASIC es mit 
einer Leerstelle. 

Das zweite, was bei unserem Musikinstrument nicht stimmt, ist, daß es 
Töne stockend spielt, je nach Ihrem Tippvermögen und den Eigenheiten der 
Tastatur (schließlich soll der Spectrum ja keine elektronische Orgel sein.) 

Statt einen Ton gleich zu spielen, wenn er eingegeben wird, sollten Sie 
ihn speichern (erraten - in einem Array), und die ganze Melodie dann spielen, 
wenn alle Töne im Computer sind. Das hat den zusätzlichen Vorteil, daß wir die 
Melodie jederzeit wiederholen können. 

Als erstes brauchen wir ein weiteres Array für die codierten Töne: 


12 DIMt (1599) 


Unsere Melodie kann bis zu 15®® Töne enthalten. 

Die Eingabeschleife verändert sich, weil die Zahl der Töne nicht mehr 
unbegrenzt ist, und auch deshalb, weil der Wert, der mit BEEP wiedergegeben 
werden soll, in t gespeichert und nicht gespielt wird. Ferner müssen wir aus der 
Schleife wieder herauskommen, falls es insgesamt weniger als 15®® Töne 
werden. 

Die Zeilen 20 und 39 verändern sich nicht und stehen natürlich außerhalb 
der Schleife, also beginnen wir bei Zeile 35: 


35 FORq = 1TO 1509 


Nach dem INPUT in Zeile 40 brauchen wir einen Test, um festzustellen, ob die 
Sequenz schon beendet ist. Verwenden wir zum Abschluß "**": 


42 IFn$= "**" THEN GO TO 209 


um aus der Schleife herauszukommen. 
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Zeile 100 muß sich ändern, damit der codierte Ton nicht mit BEEP wie- 
dergegeben, sondern gespeichert wird: 


1098 LETt(q)=s(z) ti 
Da q die aufeinanderfolgenden Werte 1, 2, 3 etc. erhält, wird der erste Ton in t 
(1) gespeichert, der nächste in t (2), und so weiter. 

Die Schleife endet bei Zeile 119 mit: 

118 NEXTq 


statt mit dem GO TO von vorher. 
Jetzt können wir uns daran machen, von Zeile 209 an die Melodie zu 
spielen: 


200 FORr=1T0Oq [Beachte: Diese Schleife geht nur bis 
210 BEEP®.5,t (3) q, nicht bis 15900. Grund: Nach dem 
220 NEXTr Verlassen der ersten Schleife enthält 


q die Zahl der Töne in der Melodie. ] 
Zur ständigen Wiederholung brauchen wir nur anzufügen: 
230 GOTO 209 


Für den Fall, daß die verschiedenen Veränderungen und Abwandlungen Sie 
verwirrt haben, finden Sie das endgültige Programm im Abschnitt Fertigpro- 
gramme. 

Schließlich wollen wir die Musik noch durch ein farbiges Display ergän- 
zen. Mit das Einfachste, was wir tun können, ist, bei jedem gespielten Ton die 
Randfarbe zu verändern. Nun wäre es schön, wenn wir schreiben könnten: 


215 BORDERt(r) 
damit jeder Ton eine eigene Randfarbe hätte, aber das geht nicht, weil der 
Wertebereich, der’ sich in t (r) befinden kann, -3 bis 8 ist und der Bereich 
möglicher Farben nur ® bis 7. Fügen wir t (r) 3 an, reicht er von ® bis 11, 
multiplizieren wir das Ergebnis mit 7/11, so erhalten wir, wie gewünscht, ® bis 
7. Also: 

215 BORDERINT ((t (r) +3) *7/11) 
Verändern Sie nun die Paperfarbe jedesmal, wenn ein Ton gespielt wird: 

216 PAPER8* (r/8-INT (r/8)): CLS 


Das verlangsamt die Dinge ein bißchen, was? 
Ersetzen Sie 216 durch: 


216 PRINT INK ((t (3) +3) *7/11); "III"; 
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(Es ist nicht unbedingt erforderlich, den Ausdruck mit INT zu bestücken; BASIC 
tut das von selbst, weil INK keinen Wert besitzen kann, der nicht einer ganzen 


Zahl entspräche.) 
Experimentieren Sie; wahrscheinlich kommen Sie auf Displays, die noch 
viel gräßlicher aussehen! 
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16 DEBUGGING Ill 


... aber warum den Spectrum nicht dazu bringen, daß er sich die 
Fehler selbst abgewöhnt? 


Beim letzten Beispiel, das wir uns angesehen haben, ging der Debuggingpro- 
zeß so vor sich, daß wir uns angestrengt haben. Es wäre hübsch, dem Computer, 
der bis jetzt nur selbstgefällig dagesessen und uns die falschen Antworten 
gegeben hat, einen Teil der Arbeit aufhalsen zu können. 

Die Frage lautet also: Welche Dinge könnte uns der Computer sinnvoll 
darüber mitteilen, wie er ein Programm ausführt? Hier sind drei Hauptbereiche 
zu beachten: 


1 Welche Werte erhält das Programm in verschiedenen Abschnitten seiner 
Ausführung für seine Variablen? 

2 Wohin geht das Programm (d. h., welche Zeilen werden ausgeführt und 
in welcher Reihenfolge)? 

3 Wie oft geht es dorthin (d. h., wie oft werden bestimmte Zeilen oder 
Zeilengruppen ausgeführt)? 


Manche Computer bieten für die Anzeige zumindest einiger dieser Informatio- 
nen eine Automatik, aber für ca. DM 500,- (ZX Spectrum mit 16K), kann man 
(noch) nicht alles haben. Wir müssen deshalb in unsere Programme zusätzliche 
Zeilen einbauen, um einige dieser Details zu liefern. Sehen wir uns die obigen 
Punkte der Reihe nach an. 


Werte von Variablen anzeigen 


Es ist sehr einfach, Variablenwerte überall dort anzuzeigen, wo wir wollen. Wir 
brauchen nur an einer passenden Stelle im Programm eine PRINT-Anweisung 
einzufügen. Beispiel: In unserem Mittelwert-Programm könnten wir eine Zeile 
55 einfügen: 


65 PRINTc 


was uns gestatten würde, die Veränderungen im Wert von c während der 
Programmausführung zu verfolgen. (Es wäre nicht einmal schwierig, den Com- 
puter zu veranlassen, daß er ein Exemplar des Schreibtischtests liefert, den wir 
von Hand vorgenommen haben - vielleicht versuchen Sie es einmal.) 

Das eigentliche Problem hier besteht darin, sparsam und vernünftig aus- 
zuwählen, wo Zwischenwerte ausgegeben werden sollen, weil Sie sonst nur 
endlose Zahlenreihen erhalten, die zu analysieren genauso lange dauert wieein 
Schreibtischtest von Hand. 

Beim zweiten Lauf des Mittelwert-Programms wurde, wie Sie sich erin- 
nern, durch Zeile 100 eine Fehlermeldung ausgelöst, so daß wir keine Werte 
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angezeigt bekamen. Ein vernünftiger erster Schritt bestünde darin, eine Zeile 95 
einzufügen: 


95 PRINTs,c 
Vergessen Sie nicht, daß Zeile 40 abgeändert werden muß: 
40 IFn<®THENGOTO 


Sonst wird die neue Anweisung nämlich nie ausgeführt. Das hat die Wirkung, 
daß unser Verdacht sich verstärkt, c enthalte Null und wenig mehr. Fügen Sie 
nun Zeile 65 ein: 


65 PRINTc;i;n;s; z 


so daß wir am Ende jeder Schleife eine vollständige Liste aller Variablen erhalten 
(der Bequemlichkeit halber in alphabetischer Reihenfolge). Das führt zu einer 
vereinfachten Form der Tabelle im Schreibtischtest, die aber die wesentlichen 
Punkte enthält. 

Übrigens hier ein flotter Trick: Im Verlauf des Programmtestens wollen Sie 
“ vielleicht vorübergehend eine der neuen Zeilen herausnehmen, damit nicht zu 
viele Variablen auf einmal angezeigt werden. Das heißt, daß man später die 
ganze Zeile wieder eintippen, oder noch schlimmer, wie bei unserer Zeile 95 
auch noch eine zweite Zeile abändern muß, weil Zeile 4Ö sich zurückverwandelt 
haben wird zu 


48 IFn < OÖ THEN GO TO 199 


wenn Zeile 95 herausgenommen wird. Das ist nicht notwendig. Geben Sie am 
Anfang jeder Zeile, die Sie sperren wollen, einfach ein REMeein. Zeile 95 lautet 
dann: 


95 REMPRINTSs,c 


Da das jetzt ein Remark ist (also eine Bemerkung), beachtet der Computer das 
nicht, aber eine Verzweigung zu Zeile 95 ist durchaus zulässig! Wenn wir die 
Anweisung wieder brauchen, nehmen wir das REM einfach wieder heraus. 


Den Weg verfolgen | 


Die einfachste Methode, den Weg zu verfolgen, den ein Programm genommen 
hat, besteht darin, hinter jede Zeile eine PRINT-Anweisung zu setzen, mit der 
die eben ausgeführte Zeile angezeigt wird. Beispiel: Das Mittelwert-Programm 
sähe dann so aus: 


19 LETs=® 
11 PRINT 19" 
20 LETc=9 
21 PRINT 20" 
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30 INPUTn 
31 PRINT "39" 


etc. 


Wieder laufen wir Gefahr, zuviel Information zu produzieren und den Wald vor 
Bäumen nicht mehr zu erkennen. Wir wollen deshalb bei dieser '"Verfolgungs’- 
Prozedur ein bißchen schärfer auswählen. Die Art von Frage, die ein Ablauf- 
überwacher gut beantworten kann, lautet: "Verzweigt das Programm dort, wo 
es das tun soll?‘ Da es uns darum geht, ist es sinnvoll, unsere Ablaufüber- 
wachung auf Bereiche zu beschränken, wo Verzweigungen stattfinden. 

Beispiel: Nehmen wir an, in einem Programm soll ein Monatstag einge- 
geben werden. Ein solcher Wert läge im Bereich 1-31, also entspräche es 
vernünftiger Programmpraxis, dafür zu sorgen, daß der Anwender einen sol- 
chen Wert eingegeben hat, bevor er fortfährt. Wir könnten einen Code dieser Art 
schreiben: 


50 INPUTt 
60 IFt> BORt < 32 THEN GO TO 209 
78 REM Hier, wenn ungültiger Tag 


Das Programm verhält sich nicht so, wie es sollte, also schieben wir nach den 
Zeilen 50, 70 und 200 einen Überwachungsbefehl ein: 


50 INPUTd 
51 PRINT +59 +" 
60 IFt> BORt < 32 THEN GO TO 299 
78 REM Hier, wenn ungultiger Tag 
71. PRINT "+70 +" 
200 REM Hier für einen gültigen Tag 
201 PRINT "+ 200 -"); 


Wir stellen fest, daß, gleichgültig, welchen Eingabewert wir auch nehmen, bei 
der Ablaufüberwachung stets herauskommt 


* 50 *%* 200 * 
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(Ich verwende Sternchen deshalb, damit die Zeilennummern von Ablaufüber- 
wachern nicht verwechselt werden können mit Zahlen, die das Programm 
anzeigt. Sie können jedes Sonderzeichen nehmen, das Ihnen gefällt.) 

Das Programm kann also nicht dazu gebracht werden, zu Zeile 7® zu 
gehen. Es gibt nur eine vernünftige Schlußfolgerung: Die Bedingung t > ® OR 
t < 32 wird jedesmal erfüllt. Von der Logik her ist das so - jede Zahl ist entweder 
größer als ® oder kleiner als 32. Wir hätten schreiben sollen: 


60 IFt> BANDt < 32 THEN GO TO 209 


Die Verwechslung von AND mit OR ist ein häufig auftretender Fehler, und zwar 
deshalb, weil wir diese Wörter im normalen Sprachgebrauch weniger exakt 
verwenden. Im vorliegenden Fall müssen beide Bedingungen erfüllt sein, bevor 
wir zu einem gültigen Tag kommen, also ist die Verbindung AND erforderlich. 


Programmprofile 


Ein Programmprofil zeigt an, wie oft jede Zeile eines Programms ausgeführt 
worden ist. Wie gewohnt, wird hier gern maßlos übertrieben, und wir sollten 
uns mit Überlegung aussuchen, bei welchen Programmteilen wir ein Profil 
anstreben. Das geht ganz leicht. Angenommen, wir wollen feststellen, wie oft 
Zeile 420 eines bestimmten Programms ausgeführt wird. Wir setzen zu Beginn 
eines Programms eine Zählung auf Null und erhöhen jedesmal, wenn Zeile 429 
durchlaufen wird, um 1: 


5 LETzc=® 
420 LETa=a*(z-1) 
421 LETzc=zc+1 
809 PRINT zc 


810 STOP 
Sehen wir uns ein konkretes Beispiel an. Das folgende Programm soll maximal 
20 Werte annehmen, wobei mit einer Null abgeschlossen wird, und sie in 
aufsteigender Reihenfolge ordnen. Wenn die Eingabefolge also lautet: 


3 


S N PP 2-0 
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sollte herauskommen 


RP oo N - 


Die Null sollte nicht erscheinen, weil sie nur ein Begrenzer ist. 


10 DiMa (29) 

20 FORz=1TO29 

30 INPUTa(bJ & 

40 IFa(z) =® THEN GOTO 69 
50 NEXTz 

60 LETn=z 

70 FORz=1TOn 

80 IFa(z) <a(z+ 1) THEN GO TO 139 
90 LETt=a(z) 

1090 LETa(z)=a(z+t1) 

118 LETa(z+1)=t 

120 LETf=1 

130 NEXTz 

148 IFf=1THENGOTO 65 
150 FORz=1TOn 

160 PRINTa (z) 

170 NEXTz 


Das Programm leistet nicht ganz, was es soll. (Tippen Sie es ein und probieren 
Sie es aus.) Es geht vielmehr in eine Endlos-Schleife. 

Wo fangen wir mit dem Suchen also an? Die erste Schleife (20-59) sieht 
ganz harmlos aus, die letzte (150-179) zeigt lediglich den Inhalt des Arrays a 
an. Deshalb spricht die Vernunft dafür, sich mit der Schleife von 70 bis 130 zu 
befassen. Aus Zeile 80 ergibt sich, daß manchmal alle Anweisungen in der 
Schleife ausgeführt und manchmal die von 99 bis 12® nicht beachtet werden. 
Wir brauchen also zwei Profilzähler c1 und c2, die zählen, wie oft in die Schleife 
hineingegangen und wie oft der letzte Teil der Schleife ausgeführt wird. 
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Das können 


67 
68 
75 
125 
132 


wir erreichen mit: 


LETc1 =®9 
LETc2=9 
LETc1=c1+1 
LETc2=c2+1 
PRINT c1,c2 


Wenn wir schon dabei sind, können wir auch gleich den Inhalt des Arrays am 
Ende jeder Schleife anzeigen lassen, weil offenkundig ist, daß darin Zahlen 
umgeschaufelt und kaum andere Variablen verwendet werden. Also: 


134 
135 
136 
137 


FORq=1TOn [weil 1 TO n der relevante Teil des 
PRINTa (da); Arrays zu sein scheint] 

NEXT q 

PRINT 


Probieren wir Datenmengen aus und warten wir ab, was sich tut. Wenn wir 


eingeben 


3 


0-2 9 


® 


erhalten wir: 


6 4 


316509 


6 4 


130956 


6 2 


190356 


6 2 


091356 


6 2 


90 


001356 
6 1 
001356 
6 1 
001356 


und so weiter, bis der Speicherplatz ausgeht. 

Tja. Die Werte scheinen zwar in eine Reihenfolge zu kommen, aber wir 
haben die ‘8° verloren, und woher kommen die Nullenpaare? Außerdem geht 
das Programm 6mal beharrlich durch die Hauptschleife, aber die Läufe durch 
die Unterschleife werden immer seltener, bis sie bei 1 sind, wo sie bleiben. 

Eine der Nullen ist offenkundig der Begrenzer, die andere ein Element des 
Arrays, das nicht während des Durchlaufs gesetzt, sondern durch das System 
auf Null aktualisiert wird. Mit anderen Worten: Das Programm hat es mit zwei 
Werten zuviel zu tun. Schreiben wir Zeile 60 also um: 


60 LETn=z-2 


und versuchen wir es noch einmal. Die Hoffnung währet ewiglich.... 
Wir erhalten 


4 2 
3165 

4 2 
1356 

4 ) 
1356 

1 

3 

5 

6 


Immerhin ein Fortschritt -— die Nullen sind wir losgeworden. Aber unsere 8 
haben wir immer noch nicht wieder. 

Schwer zu erkennen, wo wir sie verloren haben. Vielleicht ist sie noch da 
und wird nur nicht angezeigt. Wo zeigen wir sie mit PRINT an? In den Zeilen 
150-170. Der Bereich 1 TO n muß zu klein sein. Erhöhen wir ihn um 1: 


159 FORz=1TOn+t1 


Und weil wir schon dabei sind: Der Ablaufüberwacher in Zeile 134 hat vermut- 
lich mit denselben Problemen zu kämpfen. Das wollen wir auch gleich beheben: 


134 FORq=1TOn+1 
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Je nun; von neuem in die Bresche, Freunde, laßt es uns einmal noch versu- 
chen... 
Diesmal erhalten wir (für dieselben Daten): 


4 2 
31658 
4 2 
13568 
49 
13568 
1 


9) 0 


Heurekal Wir haben die Nuß geknackt. Alles läuft ideal. Wirklich? Probieren wir: 
3 


0 = N 9 


® 


Jetzt erhalten wir: 


4 3 
32155 
4 3 
21355 
4 2 
12355 
4 1 
12355 
4 1 
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12355 
4 1 
12355 


etc. 


Die richtige Lösung wird zwar erreicht, aber das Programm kommt nicht mehr 
aus der Schleife heraus. Uns fällt auf, daß in diesem Fall c2 nie auf Null 
heruntergeht. Man wird also davon ausgehen dürfen, daß genau dies das 
Programm beendet. 

Was entscheidet darüber, ob das Programm in die Subschleife eintritt oder 
nicht? Zeile 89: 


80 IFa(z) <a(z+ 1) THEN GO TO 139 


Der Unterschied zwischen den beiden Datenmengen ist der, daß die zweite 
zwei gleiche Werte enthält. Da 5 nicht weniger als 5 ist, wird jedesmal dann, 
wenn die doppelte 5 erscheint, die Subschleife ausgeführt. Vielleicht sollte die 
Frage lauten: 


808 IFa(z) <=a(z+ 1) THEN GO TO 139 
Diesmal funktioniert alles. 


4 2 
32155 
4 2 
21355 
41 
12355 
490 
12355 
1 


01 @ DIN 


5 


Jetzt läuft es wie geschmiert, und wir können die Testzeilen herausnehmen. 
Ich hoffe, ich habe hier zwei wichtige Punkte veranschaulichen können. 
Erstens: Wir mußten nicht wissen, wie die Prozedur genau funktioniert. Wenn 
Sie das gründlich durchgearbeitet haben, wird es inzwischen ziemlich klar sein, 
und ein paar Schreibtischtests würden Sie vermutlich davon überzeugen, daß 
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Sie es begriffen haben. (Schreibtischtests sind ein guter Weg, wenn man 
erkennen möchte, wie Computerprozeduren ablaufen. Ich habe bei einem un- 
klaren Codeteil - der selbstverständlich von einer anderen Person stammte - oft 
rund ein Dutzend Tests angestellt, bevor mir wirklich ganz klar wurde, was 
vorging.) Zweitens: Man neigt immer gern zu der Ansicht, die Arbeit sei getan, 
wenn ein Programm zum erstenmal erfolgreich läuft, und man dürfe sich in der 
Eckkneipe jetzt ein Glas Bier vergönnen. Wie wir sehen konnten, ist die Arbeit 
eben nicht getan, weil es andere Datenmengen geben kann, an denen das 
Programm scheitert. Außerdem hat die Kneipe schon vor eineinhalb Stunden 
zugemacht, wenn Ihnen die Zeit beim Schreiben von Code genauso schnell 
verfliegt wie mir. 
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17 STRINGS 


Computer sind nicht bloß Zahlenknacker. 
Sie können auch Zeichen knacken, das heißt, mit Symbolen 
umgehen. 


Der Postboteerscheint... und bringteinen Brief für Sie. Einen sehr persönlichen 
Brief. "Lieber Herr Frempelmotz’', steht da, "Sie sind aus einer kleinen Gruppe 
von Personen in Unterschwer-Steinhausen ausgewählt worden und erhalten 
völlig kostenlos ein erstklassiges Paar Gummistiefel mit Betonfutter... .'' Sehr 
erfreulich. Aber die alte Frau Kniefschatten nebenan hat fast genau den gleichen 
Brief erhalten. Um genau zu sein: Ganz Unterschwer-Steinhausen hat ebenso 


wie die Einwohnerschaft mehrerer Kantone solche Briefe bekommen. 


Das geht so: 
19 INPUT "Wie heißen Sie?”; n$ 
20 INPUT "In welcher Stadt leben Sie?”; t$ 
30 INPUT "In welcher Stadt wohnen Sie?’; s$ 
40 INPUT "Welche Hausnummer haben Sie?”; h 
50 PRINTn$ 
60 PRINT h; ",[_]"; s$ 
780 PRINT t$S 
80 PRINT "Lieber [_]"; n$; "," 
90 PRINT "[J[LI[J Sie sind ausgesucht worden aus einer” 
108 PRINT "kleinen Gruppe wohnhaft in” 
118 PRINT t$; "[_] und erhalten’ 
120 PRINT "voellig kostenlos * ein” 
130 PRINT "herrliches Paar Gummistiefel” 
140 PRINT "mit Betonfutter. Wir sind’ 
1580 PRINT "sicher, [_]"; n$; "[_J] daß Sie’ 
160 PRINT "dieses großzuegige Angebot” 
170 PRINT "nuetzen wollen und daß die” 
180 PRINT "anderen Einwohner von” 
198 PRINT t$; "[_] vor Neid gelb wie die” 
200 PRINT "Papageien werden duerften.” 
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218 PRINT "[_][LJ[J Mit unverbindlichem Gruß. 
220 PRINT "JE JEIJEIJ[J Franz X. Protzenfuß’” 
230 PRINT "[LJLJLIJTIJ[I Schmonzettenhandel.” 
240 PRINT, '* Postspesen DM 1043.22 extra.” 


Drücken Sie RUN und geben Sie mit INPUT (z. B.) ein "Lisa Hurtig’; “"Schmer- 
dorf”; "Knoedelsteig’; "666. Versuchen Sie es mit anderen Namen und Adres- 
sen. Hmmmm ... 

Stellen Sie sich das Ganze nun vor, wie das aus einer Datenbank Namen 
und Adressen zugeführt bekommt und in der Stunde Tausende von Briefen 
ausspuckt. 

Sieht man einmal davon ab, wie himmelschreiend der ganze Unfug ist, 
das Interessante daran ist eben, daß überhaupt keine Computerberechnungen 
erforderlich sind. Es geht nur um Speicherplatz und die ganz simple Handha- 
bung von geschriebenem Text. Der Computer bewältigt das, weil er so gut wie 
Zahlen auch Ketten speichern kann, die im Computerjargon Strings heißen. Das 
ist es, was die Dollarzeichen “$”” bezeichnen, obschon im gegebenen Zusam- 
menhang vielleicht auch Vater Freud ein Wörtchen mitzureden hätte. 

Ein String (bei diesem Aüsdruck wollen wir bleiben) ist eine Folge von 
Zeichen. Die Zeichen sind im Anhang A des Handbuchs oder auf dem Daten- 
blatt aufgeführt. Jedes besitzt einen CODE, mit dem wir uns dann gleich 
befassen wollen. 

Hier ist ein String: 


stringstringstringstringstring. 
Hier ein zweiter 
ab 334*./ >> >><<-b+t+r+rr+togg]. 
(Wenn Sie die Punkte eintippen, sind auch sie Bestandteil des Strings!) 
Ein String kann nur ein Zeichen lang sein, etwa <, oder gar keine Zeichen 
lang! 
Um ein Stringvariable zuzuteilen, müssen Sie den String in Anführungs- 
zeichen setzen: 
10 LET a$ = "stringstringstringstringstring 
Jede Stringvariable muß ein einzelner Buchstabe sein, gefolgt von dem $-Zei- 
chen. Bei einem String von keinem Zeichen Länge genügt LET a$ = "". 
Strings tun alles, was man von ihnen verlangt, wenn man mit ihnen 
umgehen kann. Nehmen Sie einen Einzelzeichenstring wie 
3 
Man kann ihn sehen als 
a eine Zahl, 3 
b einen String, "3" 
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und Sie können auf verschiedene Art und Weise vom einen zum anderen 
umsteigen. Angenommen, wir sehen die 3 wirklich als String und teilen sie zu: 


10 LETa$= "3" 


Gehen wir davon aus, Sie wollen 3 + 5 berechnen. Es hat keinen Sinn, vom 
Spectrum zu verlangen: 


20 LETb=a$+5 
30 PRINTb 


Das funktioniert nicht — probieren Sie es aus, wenn Sie mir nicht glauben. Und 
warum nicht? Dem dummen Ding ist mitgeteilt worden, die 3 sei als String zu 
betrachten, und es weiß nicht, daß das auch eine Zahl ist. Aber - aha! - wir 
können ihn mit Hilfe von VAL in eine Zahl umwandeln. Probieren Sie 


20 LETb=VALa$+5 
30 PRINTb 


Wenn der Computer einen String erhält, der auch ein arithmetischer Ausdruck 
ist wie 
10 LETa$s="2+2+5+3" 


weiß er im allgemeinen nicht, wie das als Zahl zu berechnen wäre; er sieht das 
nur als eine Folge von Zeichen 


2+2+5+3 
Beispielsweise können Sie das sechste Zeichen herausnehmen: 
20 PRINTa$ (6) 


und erhalten * als Antwort. (Das kann nützlich sein: Als arithmetischer Aus- 
druck entspricht es 19, das kein sechstes Zeichen besitzt.) Wenn Sie es aber in 
eine Zahl verwandeln wollen, wird 


20 PRINT VAL a$ 


als Antwort 19 bringen. 

Eine Zahl können Sie auf zweierlei Weise in einen String verwandeln. 
Erstens, indem Sie sie in Anführungszeichen setzen, also ‘3336’ oder eine 
beliebige Zahl. ABER: Wenn Sie innerhalb eines Programms sind und a + b oder 
was auch immer berechnen, was 3336 ergibt, hat es natürlich keinen Zweck, 
"a + b” zu schreiben, in der Hoffnung, dabei käme ‘3336’ heraus; vielmehr 
erhalten Sie einen String aus drei Zeichen 


atb 


und das ist etwas völlig anderes. 
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CHRS$ verwandelt eine Zahl zwischen ® und 255 entsprechend der Code- 
liste im Handbuch, Anhang A (oder Datenblatt) in ein Einzelzeichen. Beispiel: 
CHRS$ 96 ist das Pfundzeichen £. Manche Zahlen werden nicht verwendet. 

CODE wirkt umgekehrt: CODE "£” ist 96. Wenn Sie CODE "£335/h” 
versuchen, erhalten Sie trotzdem 96; der Computer sieht nur das erste Zeichen. 

LEN sagt Ihnen, wie lang der String ist. 

Das weitaus Interessanteste an Strings ist, daß man Teile herausnehmen 
kann, die Substrings heißen. Die Anweisung 


a$ (3T0 7) 


holt den String heraus, welcher der Reihe nach aus dem 3., 4., 5., 6. und 7. 
Zeichen von a$ besteht. Sie können anstelle von 3 und 7 jede andere Zahl 
verwenden. Und a$ (5) holt nur das 5. Zeichen, in diesem Fall ‘'n’”. 

Beispiel: Sie wollen eine Zahl zwischen 1 und 7 eingeben und bestim- 
men, welcher Wochentag das ist (mit 1 als Sonntag, 2 als Montag, etc.). Eine 
umständliche Methode wäre diese: 


19 INPUTn 
20 IFn= "1" THEN PRINT "Son” 
30 IFn= "2" THEN PRINT "Mon" 


bis alle sieben Tage durch sind. 
Aber mit Substrings 


10 LET a$ = "SonMonDieMitDonFreSam’” 
20 INPUTn 
38 PRINTa$= (3*+n-2T03*n) 


ist dasselbe mit fünf Zeilen weniger zu erreichen; siehe dazu TAGEFINDER, 
Seite 162. 
Sie können Strings mit + auf folgende Weise aneinanderhängen: 


“hot + "dog" = "hotdog” 


oder sie mit < "alphabetisch" ordnen. Schlagen Sie im Handbuch nach und 
experimentieren Sie. Überlegter Einsatz von Strings kann oft viel Speicherplatz 
sparen. 

Das folgende Programm bestimmt die Anfangsbuchstaben eines Na- 
mens. 


10 INPUT "Wie ist dein voller Name?; n$ 

20 LETn$="[]” + n$. 

30 FORi=1TOLENn$ 

40 IFn$(i) = "[LJ"ANDi < LENn$THEN PRINT n$ (i + 1); “.”; 
50 NEXTi 
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Drücken Sie RUN und geben Sie Ihren eigenen Namen ein. Geben Sie "Aus- 
gemachte Eleganz Gesellschaft’ ein und sehen Sie sich an, ob "A. E. G.” 
herauskommt. 

So, wie das Programm dasteht, ist es nicht perfekt; wenn Sie zwischen 
Wörter zusätzliche Zwischenräume setzen, sieht die Ausgabe recht unschön 
aus. Man braucht vorne nur eine zusätzliche Leerstelle einzuschalten, damit das 
Leben einfacher wird, und dann davon auszugehen, daß jedes Zeichen nach 
einer Leerstelle ein Anfangsbuchstabe ist. Verwenden Sie Punkte, damit es 
sauberer aussieht. 


Aufgabe 
Ändern Sie das Programm so ab, daß es wiederholte Leerstellen nicht beachtet. 
Ein Weg besteht darin, alles abzusuchen und sämtliche Leerstellen, die einer 
ersten folgen, zu löschen. Damit das j-te Zeichen aus einem String n$ gelöscht 
wird, schreiben Sie 


LETn$=n$(TOj -1) +n$(j +1TO) 


Wenn Sie die Zahlen vor oder nach dem ‘TO’ weglassen, geht der Computer 
davon aus, daß sie Anfang und Ende sind. 
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15 DATA 


Es gibt ökonomischere Methoden, viele Variablen zu bestimmen, 
als durch die Verwendung von LET-Anweisungen: DATA. 


Über der Taste D steht in grüner Schrift das Wort “DATA”. Mit diesem Befehl 
können Sie vermeiden, lange Folge von Anweisungen in der Art "LET a (37) = 
242", "LETa (38) = 243”, ...etc. eingeben zu müssen. Beispiel (nur, damit Sie 
sich mit dem Befehl vertraut machen können): 


18 DATA1,2,3,4,5,6,7 
20 FORi=1T07 


30 READx 
40 PRINTx 
569 NEXTi 


Sie sollten als Ausgabe wieder die Zahlen 1-7 erhalten. Der READ-Befehl heißt 
im Grunde “LET x = die nächste Zahl auf der DATA-Liste”. Jedesmal, wenn 
eine READ-Anweisung auftaucht, sucht der Computer die DATA-Zeilen ab, 
findet den letzten Posten, den er gelesen hat, und gibt den nächsten als den Wert 
der Variablen nach der READ-Anweisung ein. Beim ersten Durchgang liest er 
also x als 1, beim nächstenmal als 2, und so weiter. 

Eine nützliche Eigenschaft von DATA ist, daß der Computer alle DATA- 
Zeilen in einem Programm alseine einzige aneinandergekettete Liste betrachtet. 
Sie können diese Zeilen hinstellen, wo Sie wollen (allerdings geht es oft 
schneller, wenn das irgendwo am Anfang geschieht, weil der Computer sie ja 
absucht). Versuchen Sie das Programm umzuschreiben, etwa so: 


18 FORi=1T07 


20 READx 

30 DATA1,2,3,4 
40 PRINTx 

560 DATA5 

60 NEXTi 

70 DATA6,7 


Das funktioniert genauso - selbst wenn die DATA-Zeile sich innerhalb einer 
FOR/NEXT-Schleife befindet. (DATA ist eine Ausnahme von der Regel, daß 
Zeilen in numerischer Reihenfolge ausgeführt werden.) 

Wenn das schon alles wäre, was Sie damit anfangen können, wäre das 
nicht sehr eindrucksvoll. Hier ist aber noch eine typischere Anwendungsform: 
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10 DATA 109, 59, 159, 199, 199, 150, 50, 199, 199, 59 
20 READx,y 

30 PLOTx,y 

40 FORi=1T04 

50 LETx® =x:LETy®=y 


60 READx,y 
70 DRAWx-x®,y- y® 
80 NEXTi 


Damit müßte eine Rautenform gezeichnet werden: Die DATA-Liste liefert die 
Koordinaten der Ecken, wobei die untere Ecke für das Ende ebenso wie für den 
Anfang wiederholt wird. 

Daraus wollen wir etwas ganz Heißes machen... 


10 DATA2,9,6,0,9,1,15,0®, 16, 1,16, 12, 15, 13, 14, 12, 
14,2,19®,2,11,6,8,12,1®, 15,9, 18,8, 22, 7,18, 3,18, 2, 
22,1,18,0,15,2,12,®,6,9,3,2,® 

20 READx,y 

30 PLOTx,y 

40 FORi=1TO23 

50 LETxÖ=x:LETyß=y 


60 READx,y 
70 DRAWx-x0O,y- y® 
80 NEXTi 


Wenn Sie analysieren, was hier geschieht, werden Sie feststellen, daß zuerst der 
Punkt mit den Koordinaten 2, ® gezeichnet und er dem Punkt 6, ® angefügt 
wird, dann 9, 1, und so weiter. Die Zahlen folgen in der DATA-Liste aufeinan- 
der. 

Damit das Bild mehr in die Schirmmitte rückt und nicht so zusammenge- 
quetscht aussieht, verändern Sie Zeile 30 zu 


3d PLOT1P9 +x,60 +y 


Die DATA-Liste selbst wurde anhand einer Rohskizze auf Millimeterpa- 
pier erarbeitet, die Koordinaten wurden von dort abgelesen. Das ist wie bei den 
Bildern, die aus vielen Punkten bestehen, die man miteinander zu verbinden hat. 
Nur haben wir die Orte der Punkte hier mit Koordinaten anzugeben. . 

Für eine einzige Katze ist das aber immer noch viel Arbeit. Um dicke 
Katzen, dunne Katzen und sogar auf den Kopf gestellte oder seitenverkehrte 
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Katzen zu erhalten, verwandeln Sie einfach die Daten. Ändern Sie Zeile 30 wie 
oben ab, um genug Platz zu schaffen; fügen Sie diese Zeile an: 


5 INPUTa,b 
und verändern Sie Zeile 70 zu 
70 DRAWa*(x-x®),b*(y- y®) 


Nach RUN müssen Sie nun zwei Zahlen eingeben. Seien Sie anfangs noch nicht 
zu ehrgeizig. Versuchen Sie esmita = 1,b = 2, und a = 2, b = 1. Probieren Sie 
danna = 2,b = - 1;a = - 2,b = - 1. Wenn Sie die gesehen haben, nehmen Sie, 
was Sie wollen! Aber Vorsicht: Das Programm ist nicht dagegen gesichert, vom 
Bildschirm zu rutschen, und Bruchwerte von a und b bewirken durch Run- 
dungsfehler seltsame Erscheinungen. Einen Kniff, mit dem sich dieses Problem 
umgehen läßt, finden Sie in SPIRALEN, Seite 168. 

Jetzt wollen wir eine ganze Reihe von Katzen zeichnen. Dazu können wir 
eine Schleife verwenden, aber wir brauchen eine Methode, die READ- 
Anweisung zum Anfang der Data-Liste zu versetzen. Das geht mit RESTORE. 
Wir fügen also die Zeilen an 


15 FORt=1TO8 
90 RESTORE 
100 NEXTt 


und verändern Zeile 30 zu 


30 PLOT5® +x+29+*t50+y 


Das ist alles. 
Aufgaben 
1 Setzen Sie die Katzen auf dem Bildschirm höher, während sie nach rechts 


wandern, als säßen sie auf einer Treppe. 

2 Geben Sie mehr DATA ein, um die Treppe zu zeichnen. 

3 Verändern Sie die DATA-Liste nach einem Atlas, so daß das Programm 
eine Karte von Australien zeichnet. Stellen Sie fest, wie Australien auf den 
Kopf gestellt aussieht. (Die Australier glauben ohnehin, das sei der Fall.) 

4 Wenn Sie einen halben Nachmittag Zeit haben, stellen Sie DATA für eine 
Weltkarte zusammen. 
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19 DEBUGGING IV 


Läuft das Programm wirklich? 


Wie können wir schlüssig beweisen, daß ein Programm genau das leistet, wozu 
es geschrieben worden ist? Ich will mich nicht auf komplizierte philosophische 
Erörterungen einlassen (wir wären auf dem besten Weg dazu), aber grob ge- 
sprochen ist das so, als wolle man von einem Astronomen wissen, ob morgen 
die Sonne aufgehen wird. Wenn er sehr pedantisch ist, gibt er vielleicht zur 
Antwort, die Erde kreise jetzt schon sehr lange um die Sonne. Wir besäßen ein 
System physikalischer Gesetze, das darauf hindeute, sie werde das auch künftig 
tun. Man dürfe also einiges darauf verwetten, daß das auch morgen noch der 
Fall sein werde. Er würde aber hinzufügen, er könne nicht mit Bestimmtheit 
wissen, ob unsere physikalischen Gesetze richtig seien. Das, was wir seit 
Jahrtausenden beobachteten, könne auch die Manifestation eines viel kom- 
plexeren Gesetzes sein, dessen Wirkung morgen darin bestehen möge, die 
Erdrotation umzukehren oder den Planeten ganz aus seiner Bahn zu führen. 

Entsprechend: Nur, weil ein Programm bei der Eingabe der ersten tausend 
Datenmengen richtig läuft, besteht noch keine absolute Gewähr dafür, daß das 
beim tausendundersten Mal auch der Fall sein wird. Tatsächlich tauchen Fehler 
oft erst Monate oder sogar Jahre nach der scheinbar erfolgreichen Fertigstel- 
lung eines Programms auf, nachdem es zwanzig-, dreißigmal oder sogar hun- 
dertfach ohne Probleme gelaufen ist. Eigentlich kein Wunder. Schließlich wird 
der Programmierer gerade jene Bedingungen am ehesten übersehen, die am 
seltensten vorkommen. 

Hier ein Beispiel: 


Wir schreiben ein Programm für das E-Werk Hinterniederhofen zur Bearbeitung 
der Kundenkonten. Man teilt uns mit, daß es zwei Tarife, A und B, gibt. Bei 
Tarif A zahlt der Kunde im Vierteljahr eine Grundgebühr von 15 Mark und die 
verbrauchten Strommengen mit 40 Pfennig pro Einheit. Bei Tarif B hat der 
Kunde keine Grundgebühr zu entrichten und zahlt 7® Pfennig je Einheit. Wir 
verfassen einen Code folgender Art: 


190 INPUT t$ 

105 INPUT Einheiten 

119 IFt$s = “a” THEN GO TO 309 

120 IFt$ = "b" THEN GO TO 149 

130 GO TO 5999 

148 LET Rechnung = 70 * Einheiten/1P® 
150 PRINT Rechnung 

169 GOTO 199 


103 


300 LET Rechnung = 15 + 49 * Einheiten/100 
310 PRINT Rechnung 
320 GOTO 109 


5000 PRINT "ungueltiger Tarif” 
5019 STOP 


Fein. Ich weiß, der Code könnte überlegter aufgebaut sein, und in Wirklichkeit 
würden wir mehr Information brauchen, etwa Namen und Kontonummer des 
Kunden, aber Sie sehen, was gemeint ist. 

Wir testen also diesen Codeteil, er läuft wunderschön, und wir entfernen 
uns, in den Bart murmelnd,.es sei reine Vergeudung unserer erstaunlichen 
Talente, derartige Schlafmützenprogramme schreiben zu müssen. 

Und das läuft prima, jahrelang, bis eines Tages eine Rechnung über 9.00 
Mark ausgestellt wird. Natürlich fällt das keinem auf, weil Tausende von Rech- 
nungen anfallen und vermutlich ohnehin automatisch kuvertiert werden. Der 
Empfänger ist verwundert und amüsiert sich vermutlich, weil die Rechnung 
wieder einmal beweist, wie blöd Computer sind. Es scheint aber keinen Sinn zu 
haben, etwas zu unternehmen. Er wirft das Ding in den Papierkorb. Leider 
haben wir im gleichen Zusammenhang ein zweites Programm zur Speicherung 
der Absendedaten aller Rechnungen geschrieben. Wenn keine Bestätigung 
eingeht, daß die Rechnung innerhalb eines Monats bezahlt worden ist, erfolgt 
eine letzte Mahnung. Diesmal ist der Empfänger eher verärgert als belustigt, 
wirft aber auch die Mahnung weg. Von da an geht's bergab. Das Programm für 
die Prüfung des Zeitraums zwischen Rechnungsstellung und Geldeingang 
schickt eine Anweisung an die technische Abteilung, dem Kunden den Strom 
abzuschalten, falls er nach 60 Tagen immer noch nicht bezahlt hat. 

Was war passiert? Ganz einfach! Der Kunde ist Rentner. Er hat ein Ange- 
bot für einen Winter-Pauschalaufenthalt genutzt, wie Reisebüro es älteren 
Mitbürgern anbieten. Er war knapp über drei Monate im Ausland und hat in 
einem vollen Rechnungszeitraum keinen Strom verbraucht. Außerdem ist er 
Energiesparer und zahlt deshalb nach Tarif B. Aus diesem Grund hat das System 
eine Forderung über Null Mark ausgedruckt. Freilich passiert so etwas nicht oft, 
weil nur sehr wenige Menschen so lange von zu Hause weg sind; außerdem 
dürften Abnehmer des Tarif B ziemlich dünn gesät sein. Damit das Problem 
überhaupt auftreten kann, muß der Kunde beide Bedingungen erfüllen. 

Sobald der Fehler einmal erkannt ist, läßt er sich ganz leicht abstellen: 


145 IF Rechnung = ® THEN GO TO 199 


so daß der Druckauftrag vermieden wird. Das geschilderte Problem soll bei 
einem frühen Computersystem aufgetreten sein. Ich weiß nicht, ob es nicht 
einfach erfunden ist, finde aber, daß es auf alle Fälle in hübscher Weise veran- 
schaulicht, wie ein Fehler praktisch ewig verborgen bleiben kann. 

Die Moral: Wenn Sie Daten erfinden, um ein Programm zu testen, tun Sie 
das nicht willkürlich. Wählen Sie Werte an und nahe bei Verzweigungswerten 
im Programm. Wenn es in einer Zeile heißt 


305 IFu < 38 THEN GO TO 590 
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dann lassen Sie einen Test bei 29.999 und einen zweiten bei u = 30.0091 
laufen. Vielleicht haben Sie nämlich gemeint: 


305 IFu < =30 THEN GO TO 599 
Wenn Sie nur bei u = 15 und u = 16ß testen, fällt Ihnen der Fehler nicht auf. 
Achten Sie darauf, Testdaten so auszusuchen, daß irgendwann jeder 


Programmteil getestet wird. Und auf jeden Fall sollten Sie genau wissen, wie die 
Lösung für jeden Satz Testdaten ausfallen muß. 
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20 KURVEN GRAFISCH 
DARSTELLEN 


Nur für mathematisch Interessierte! 


Von einer graphischen Darstellung mit Hilfe von Koordinaten werden Sie schon 
gehört haben. Wir wollen trotzdem kurz rekapitulieren. Man beginnt mit zwei 
Geraden, der x-Achse und der y-Achse, die im rechten Winkel zueinander 
stehen. Wir können daran Entfernungen x und y markieren (negative Zahlen 
werden auf der x-Achse nach links, auf der y-Achse nach unten angezeichnet) 
und mit den beiden Entfernungen einen Punkt bestimmen, der die Koordinaten 
x und y hat. Das ist ganz wie bei den Pixels (Abbildung 20.1.) 


Abbildung 20.1 Koordinaten für Kurvendarstellung 


Wenn wir uns jetzt vorstellen, daß x entlang der x-Achse weiterwandert 
und der Wert von y sich auf eine Art und Weise verändert, die von x abhängt, 
wird sich auch der Punkt mit den Koordinaten (x, y) bewegen; in der Regel 
beschreibt er eine Kurve. Wenn Sie eine Formel dafür nennen, wie y von x 
abhängt, meinetwegen y = x -3, haben Sie die Formel für diese Kurve gegeben. 
(Mit dieser Idee, 1637 von Descartes entwickelt, Können Sie geometrische 
Kurven algebraisch darstellen. Das ist übrigens der Ausgangspunkt für höhere 
Mathematik.) 
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Mit PLOT-Anweisungen können wir ähnliche Kurven darstellen: 


10 FORj=9TO 255 
20 PLOTj, j/2 
30 NEXTj 


Sie müßten eine Reihe von Pixels erhalten, die auf dem Bildschirm von unten 
links nach oben rechts klettern. Ein Mathematiker würde vom Graph der Funk- 
tion y = x/2 sprechen. 

Sie können das abändern und eine Vielzahl grafischer Darstellungen 
erreichen. Dazu brauchen Sie nur j/2 durch einen anderen Ausdruck mit j zu 
ersetzen. Beispiel: Um die Quadratwurzel von j als eine Funktion von j darzustel- 
len, brauchen Sie aus j/2 nur SOR j zu machen und erhalten: 


18 FORj=®TO 255 
20 PLOTj,SORj 
30 NEXTj 
Schon ein wenig interessanter, nicht? 


Experimentieren Sie. Verändern Sie j/2 immer wieder. Probieren Sie das 
Folgende aus: 


(Parabel) 20 PLOT, .002 *j*j 

(Sinuskurve) 20 PLOT j, 80 * SIN (j/20) + 89 
(Kosinuskurve) 20 PLOT j, 80 + COS (j/20) + 80 
(Kettenlinie) 20 PLOT, EXP (.02 * (j - 129)) 


+ EXP (.02 * (120 - j)) + 10 


... Augenblick mal, wieso sind die so kompliziert? Was macht er denn da? 

Es gibt Probleme, wenn Sie in j als Ausdruck einfach verwenden, was 
Ihnen gerade so einfällt. Die Frage ist nämlich, was auf den Bildschirm paßt. Der 
Wert der vertikalen Koordinate muß zwischen O und 175 liegen, sonst wird der 
Spectrum überfordert und sperrt den Laden zu. (Das arme Ding kann nichts 
anderes darstellen und ist sauer, wenn man es dazu auffordert.) Sie müssen also 
normieren, wie das in der Fachsprache heißt, also den Maßstab verkleinern, 
damit alles hineinpaßt. Sie werden gleich sehen, warum, wenn Sie das Nach- 
stehende ausprobieren 


20 PLOTj,j*j 

20 PLOTj,SINj 

20 PLOTj,COSj 

20 PLOTj,EXP (j)*EXP (-j) 


Dieses Problem läßt sich natürlich umgehen, - siehe weiter unten bei NORMIE- 
REN. Aber bevor Sie dort nachsehen, hier noch ein paar interessante Funktio- 
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nen, die wirklich hineinpassen, weil ich sie mit Bedacht danach ausgesucht 
habe. 


20 PLOT, EXP (- j/8®) + SIN (j/8) + 80 + 80 

20 PLOTj,80 + 80 + COSSQR (2+*j) 

20 PLOTj,ABS (j - 127) 

20 PLOT, j, 88 +60 *LN (1 + ABSSIN (j* .125)) 
20 PLOTj,12* ABS (j/4 - 30) ? .666 

20 PLOTj,40 * ABS (j/4 - 30) f ..25 

20 PLOT, 160 + EXP (- .1 * (j/4 - 30) » (j/4 - 30)) 


Damit Sie keine komplizierten Ausdrücke schreiben müssen, können Sie die 
Formel stufenweise aufbauen, etwa so: 


20 LETt = j/24 
25 PLOTj,12d +.1*t*(t-2)*(t-4)*(t-6)*(t-8)*(t- 19) 


Normieren 


Zunächst wollen wir nur mit Funktionen für positive Zahlen arbeiten und 
positive Werte nehmen: Gut geeignet dafür ist SOR, die Quadratwurzel. Kehren 
Sie zum Programm Kurvenzeichnen oben zurück und verändern Sie der Reihe 
nach Zeile 20 wie folgt: 


a) 2®PLOTj,SORj 

b) 2®PLOTj,2*SORj 
c) 2®PLOTj,4*SORj 
d) 2®PLOTj,6*SORj 
e) 2®PLOTj,8*SORj 
fi) 2® PLOTj,19*SORj 
9) 2® PLOT, j,12*SORj 
h) 2®PLOTj,14*SORj 


Sie werden rasch bemerken, daß in aufeinanderfolgenden Diagrammen auf dem 
Bildschirm alles immer höher steigt — und bei g) bleibt der Computer sogar 
stehen, weil Grafikpunkte ganz vom Bildschirm verschwinden. Je größer Wert 
x bei x * SOR j, desto stärker wird die Kurve vertikal gestreckt. Das x ist ein 
Normierungsfaktor, und wenn Sie ihn anpassen, können Sie erreichen, daß 
grafische Kurvendarstellungen schön auf den Bildschirm passen. 

Wenn der Normierungsfaktor zu klein ist, erhalten Sie derart zusammen- 
gequetschte Kurven, daß Sie nichts erkennen können. Probieren Sie 


20 PLOTj,.1*SORj 
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Wenn die Funktion, die Sie darstellen, zu groß wird, können Sie sie durch 
Anpassen des Normierungsfaktors wieder auf den Schirm zurückholen. Bei- 
spielsweise verläßt 


20 PLOTj,j*j 


den Bildschirm, weil 14 * 14 = 196, was bereits zu groß ist. Die größte Zahl, die 
Sie darstellen können, ist übrigens 255 * 255 = 65025. Wenn Sie das durch 499 
teilen, erhalten Sie 162.5625, was gut in die 175 zulässigen hineinpaßt. Sie 
erhalten also eine hübsche Kurve, vorausgesetzt, Sie nehmen 1/4909 als Normie- 
rungsfaktor: 


20 PLOTj,j*j/4®® 


Es gibt eine ziemlich einleuchtende Grundregel, die dafür sorgt, daß der Nor- 
mierungsfaktor angemessen gewählt wird. Nehmen wir an, der größte Wert, den 
die Funktion annimmt, wenn j von ® bis 255 reicht, sei m (für Maximum). Mit 
dem Normierungsfaktor s ist dann alles bestens, vorausgesetzt, s * m ist nicht 
größer als 175 - am besten nahe daran, damit die Kurve nicht zu sehr zusam- 
mengequetscht wird. Konkret: Sie können s * m = 175 bestimmen, wenn Sie s 
= 175/m setzen. (Beirunden Zahlen ist 16® vielleicht besser; für m brauchen Sie 
weniger eine genaue Zahl als eine vernünftige Schätzung.) 

Sie könnten sogar ein Programm schreiben, um m zu berechnen. Wenn 
wir bei der Funktion j * j bleiben, läßt sich das bewältigen mit: 


19 LETm=9 

20 FORj=9®TO 255 

3d LETq=j+*j 

40 IFq> mTHENLETmM>=q 
50 NEXTj 


Das zeichnet aber die Kurve noch nicht. Sie fügen also noch die Darstellungs- 
routine an: 


60 FORj=9WTO 255 
780 PLOTj, (175/m) *j*j 
80 NEXTj 


Ein Nachteil: Sie müssen alle Berechnungen zweimal machen. Das läßt sich auf 
eine brauchbare Weise schwer vermeiden, wenn Sie nicht wissen, we/ches j den 
größten Wert für j * j liefert. In diesem Fall ist das offenkundig j = 255, aber so 
leicht kann man das nicht immer erkennen. (Sie können einen Vektor v (i) von 
der Größe 256 dimensionieren, die Werte von j * j speichern alsv (j * 1) und sie 
für das PLOT verwenden, aber Vektoren und Arrays verbrauchen viel Speicher- 
platz! Weiteres zu Vektoren und Arrays finden Sie im Handbuch.) 

Sie können nicht nur die vertikale, sondern natürlich auch die horizontale 
Achse normieren. Die Funktion SOR j oder j * j zeigt das nicht sehr deutlich, also 
nehme ich 80 + 80 + SIN j, wo das der Fall ist. Nehmen Sie Folgendes: 
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20 PLOTj,80 + 80 *SIN (.05 * j) 
20 PLOTj,80 + 80 *SIN (.1 +) 
20 PLOTj,80 +80 *SIN (.15 + j) 
20 PLOTj,8® +80 *SIN (.2 + j) 
20 PLOTj,80 + 80 *SIN (.25 + j) 


Jetzt verändert sich der horizontale Maßstab - aber der Normierungsfaktor wirkt 
ganz anders (ist Ihnen das aufgefallen?). Je größer hier der Normierungsfaktor, 
desto stärker wird die Kurve in waagrechter Richtung zusammengequetscht. 
Die Kurve weist mehr Krümmungen auf. Warum? 

Wenn j von ® bis 255 reicht, dann reicht die Zahl 9.5 * | von .d5 *® bis 0.5 
» 255, also von ® bis 12.75. 

Im zweiten Fall wird also der doppelte Bereich von Werten in denselben 
horizontalen Raum gequetscht. 

Mit einem Normierungsfaktor s — das heißt, bei 


20 PLOTj,80 +89*SIN (s*j) 


stellen Sie also den Bereich von ® bis s * 255 auf der Breite des Bildschirms dar. 
Je größer s, desto größer der Bereich, umsomehr wird zusammengequetscht. 
Wenn Sie also in einem ausgewählten Bereich darstellen wollen, sagen 
wir, 10®®, brauchen Sie s + 255 = 1099, das heißt s = 19909/2585. Allgemein 
gesprochen: Wenn Sie den Bereich ® bis n wählen wollen, brauchen Sie einen 
Normierungsfaktor n/255. 
Zusammengefaßt: 


175 


bester Normierungsfaktor vertikal = — — —  — — — — —_——_ — — 
9 größter darzustellender Wert 


oberster Bereichswert der Variablen 


bester Normierungsfaktor horizontal = 255 


Aufgabe 


Wenn Sie nicht wissen, wie etwas am besten aussehen wird, können Sie ein 
“Dialog” -programm schreiben. Sie wählen damit die beiden Normierungsfak- 
toren (über INPUT) und können dann die Kurve darstellen; falls Ihnen das 
Ergebnis nicht gefällt, fahren Sie das Programm noch einmal und ändern den 
Maßstab. 

Schreiben Sie ein solches Programm für die Funktion 89 + 80 + SINj. 

Hinweis: Wenn h der horizontale und v der vertikale Normierungsfaktor 
ist, lautet die entscheidende operative Programmzeile 


20 PLOTj,v*(80 +80*SIN (h *j)) 


110 


Achsen verschieben 


Sie fragen sich vielleicht: ‘Warum die vielen 80 + 80 * SIN j?” Oder auch: "Alles 
schön und gut, aber wenn die Zahlen nun negativ sind?‘ Die Antwort auf beide 
Fragen ist die gleiche. Bei negativen Zahlen muß man die Achsen verschieben, 
wie Fritz der Fuhrmann einmal sagte. 

Probieren Sie dieses Programm aus: 


18 INPUTs 

20 FORj=9TO 255 
30 PLOTj,s+ SORj 
40 NEXTj 


Geben Sie s ein mit ®, 10, 20 etc. 

Sie erhalten immer dieselbe Kurve; entsprechend dem Wert von s klettert 
sie aber auf dem Bildschirm immer höher. Das kann man sich in zweifacher 
Hinsicht vorstellen. 

Zum einen: Sie stellen verschiedene Funktionen dar, etwa 5 + SOR j oder 
19 + SOR]|. 

Zum anderen: Sie stellen stets SOR j dar, aber die Position der x-Achse auf 
dem Bildschirm verändert sich. Siehe Abbildung 20.2, die eigentlich für sich 
selbst spricht. 





Abb. 20.2 Eine Konstante zu addieren bedeutet dasselbe, wie die x-Achse zu verschieben 


Wollen wir etwa eine eindeutige Sinuskurve erhalten, müssen wir das 
SOR jersetzen durch 80 * SIN (.1 *j) und s so bestimmen, daß alles auf die Mitte 
des Bildschirm kommt. s = 80 ist ideal; deshalb die vielen 80 + 80 + SIN. 

Damit bewegt sich die x-Achse. Um die y-Achse zu verschieben, können 
Sie den Bereich von j verändern, von 120 bis 135 statt von ® bis 255. 
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Sie können diese Verschiebungen mit Maßstabsverkleinerungen in bei- 
den Richtungen kombinieren und brauchen die Achsen nicht in der Mitte zu 
halten - das bleibt Ihnen überlassen. Ich habe sogar eine genaue Spezifikation 
dazu geschrieben, wie man es anstellt, für jede beliebige Kurve in einem be- 
stimmten Bereich das bestmögliche Display auf dem Bildschirm zu erreichen; 
dann schaute ich mir die Unmenge Algebra an und warf das Ganze wieder weg. 
Manchmal verstellt Mathematisches den Blick auf das Wesentliche. Das ist 
einer der Fälle. 

Stattdessen schlage ich vor, daß Sie experimentieren, und zwar mit Hilfe 
des nachstehenden Programms: 


18 INPUTa,b,c,d 

20 PLOTO,d 

30 DRAW 255, ® 

40 LETu=-b/a 

59 PLOTu,® 

60 DRAW 0,175 
198 FORj=®TO 255 
118 PLOTj,c*SIN(a*j+tb)+d 
120 NEXT] 


Hier verschiebt a, b, c, d Achsen und Maßstab, während x- und y-Achse 
eingezeichnet werden. Ich habe nicht gegen Zusammenbrüche geschützt, 
wenn die Funktion den Bereich überschreitet. Von der Faulheit einmal abgese- 
hen: Damit wird deutlich gemacht, wie notwendig es ist, bei der Wahl von 
Normierung und Achsenposition vorsichtig zu sein. 

(Probieren Sie a = .1,b = - 19, c = 80, d = 80. Im allgemeinen ist ein 
negativer Wert von b erforderlich.) 


Andere Methoden 


Es gibt noch andere Methoden, mit PLOT und DRAW Kurven zu zeichnen. Statt 
dieses Kapitel mit technischen Details zu überfrachten, habe ich Beispiele dafür 
in den Fertigprogrammen untergebracht. Siehe LISSAJOUS-FIGUREN, SPI- 
RALEN und ROSETTEN und GRAFIKDEMONSTRATION 1 und 2. 
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21 DEBUGGING V 


Manchmal sehen Zahlen gleich aus und sind es gar nicht! 


Die Fehler, nach denen wir bisher gesucht haben, stammten aus eigener Pro- 
duktion und waren, einmal entdeckt, verhältnismäßig leicht zu beheben. Es gibt 
noch eine andere Art, die durch den Aufbau der Maschine selbst bedingt ist. 
Dabei handelt es sich nicht um einen Konstruktionsfehler, sondern um eine 
Folge des Aufbaus aller Computer. Das hängt mit der Genauigkeit zusammen, 
mit der Computer Zahlen speichern. Wenn wir an alltägliche Verfahren zur 
Aufnahme von Zahlen denken, liegt nahe, daß die Zahl der Ziffern, die aufge- 
nommen werden kann, begrenzt ist. Beispiel: Der Kilometerzähler eines Autos 
kann nur 6 Ziffern anzeigen, weil er nur 6 "Fenster" hat. Bei einem Computer ist 
das nicht anders. Jede Zahl kann nicht mehr besetzen als eine feste Zahl von 
“Fenstern‘‘. Dabei steht aber nicht jedes Fenster für eine Dezimalziffer. Der 
interne Maschinencode für Zahlen unterscheidet sich ganz grundlegend von 
der Art, wie wir sie uns vorstellen; mit den grauslichen Einzelheiten will ich Sie 
nicht behelligen. Die Tatsache, daß eingebaute Ungenauigkeit besteht und eine 
Codeumwandlung stattfindet, bedeutet, daß die äußere Darstellung einer Zahl 
(wie sie auf dem Bildschirm angezeigt wird) nicht dasselbe sein muß wie die 
innere. Ich will Ihnen anhand der Logarithmen, wie wir sie von der Schule 
kennen, ein Beispiel geben. Wenn Sie logarithmisch 2 mit 2 multiplizieren, 
erhalten Sie: 





0.6020+ 


also 2 x 2 = 3.9991! 


Die Tatsache, daß die Logarithmen nur bis zu 4 Stellen genau sind (also 
nur 4 Fenster besetzen dürfen), mit der Codeumwandlung zusammen (Zahl zu 
Logarithmus, Logarithmus wieder zu Zahl) ruft die Ungenauigkeit hervor. 

Hier ein Programm, das dieselbe Art von Problem hervorruft: 


19 FORp=9TO.3STEP .91 
20 LETq=ATN (TAN (p)) 

30 IFp<>qTHENPRINTp,q 
40 NEXTp 


In Zeile 10 berechnen wir den Tangens von p und kehren den Prozeß sofort 
wieder um, indem wir den Arkustangens davon berechnen. Mit anderen Wor- 
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ten: q müßte denselben Wert enthalten wie p. Zeile 30 dürfte demnach nie dazu 
führen, daß p und q angezeigt werden, weil sie stets gleich sind. Wenn das 
Programm läuft, erhalten wir folgende Ausgabe: 


0.02 0.02 
0.03 0.03 
0.04 0.04 
0.05 0.05 
0.07 0.07 
0.09 0.09 
9.11 9.11 
0.12 0.12 
0.13 0.13 
0.14 0.14 
0.16 0.16 
0.18 0.18 
0.2 0.2 

9.21 0.21 
0.22 0.22 
0.26 0.26 
0.28 0.28 


Das ist in der Tat ein sehr merkwürdiges Ergebnis, weil der Computer nicht nur 
Werte anzeigt und damit behauptet, sie wären verschieden, sondern sie auch 
noch so darstellt, als wären sie gleich! Was ist passiert? Die komplexen mathe- 
matischen Prozesse, die hier vorgegangen sind, haben kleine Ungenauigkeiten 
in der internen Darstellung der Zahlen hervorgerufen; sie führten zu den Unter- 
schieden zwischen p und q. Ungenauigkeiten entstehen aber auch durch die 
Decodierung des internen Formats zu den auf dem Bildschirm angezeigten 
Dezimalzahlen. Diese scheinen identisch zu sein, obwohl die Maschine steif 
und fest behauptet, das seien sie nicht. Beachten Sie, daß bei manchen Werten 
die internen Codes in der Tat identisch sind, etwa für 9.06 und 9.08. 

Diese Art von Fehler kann außerordentlich verwirrend sein. Manchmal 
bleibt als einziger Ausweg, in der IF-Anweisung einen kleinen Fehler zuzulas- 
sen. Dann hätten wrir: 


IFABS (p - q) < 0.000091 THEN... 


Die ABS-Funktion ist erforderlich, weil q größer sein könnte als p. Beispiel: 
Wenn p = 3undgq = 3.1, dannp - q = - ®.1, waskleiner ist als 9.000091, so daß 
die Bedingung erfüllt wäre, wenn die ABS-Funktion (die das Minuszeichen 
kappt) nicht vorhanden wäre. ABS (- .91) = 9.1, was größer ist als 9.000091, 
so daß die Bedingung nicht erfüllt ist - und das wollten wir. 
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22 PROGRAMMIERSTIL 


Wenn Sıe dann längere Programme schreiben, die Komplizierteres 
leisten, ist es wichtig, kühlen Kopf zu bewahren. Das Programm 
"ANTI-RAKETEN-ABSCHIRMUNG” in diesem Kapitel führt zu 
einem spielbaren Videospiel und zeigt, was zu verstehen ist unter 
Programmierstil. 


Gleich vorweg: Das Programm. Wenn Sie wollen, können Sie es als Fertigpro- 
gramm behandeln, also einfach abschreiben und mit RUN fahren. 

Es fängt damit an, daß es zwei Städte und zwei Raketenabschußbasen 
zeigt. Die Silos werden von links nach rechts ‘1’ und ‘2’ genannt. 

Nun regnen in ziemlich willkürlicher Weise Raketen auf sie herab. Der 
Weg jeder Rakete besitzt jedoch einen festen Winkel. 

Drücken Sie auf der Tastatur ''1’’ oder ‘'2', um eine Ihrer Abschußbasen 
ın Betrieb zu nehmen. (Es kann ein bißchen dauern, bis das Programm darauf 
reagiert; halten Sie die Taste deshalb so lange gedrückt, bis es das tut.) Sie 
werden dann aufgefordert, Reichweite und Schußwinkel für die Abfangraketen 
einzugeben. Wenn Sie eine anfliegende Rakete treffen, wird das dadurch ange- 
zeigt, daß der Sprengkopf nicht mehr blinkt. 

Früher oder später gehen Ihre Raketen zur Neige (in jeder Basis befinden 
sich am Anfang 2® Stück) oder Ihre Silos oder Städte werden zerstört. Bei dem 
Spiel kommt es darauf an, möglichst viele Raketen abzuschießen, bevor das 
eintritt. 

Die Werte für “Reichweite” und "Schußwinkel”, die Sie eingeben müs- 
sen, bedurfen der Erklärung. 
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Erstens: Der Reichweitenwert benutzt dasselbe Koordinatensystem wie 
der Spectrum im hochauflösenden Grafikmodus (PLOT). Wenn Sie also etwas 
treffen wollen, das sich unmittelbar über einem Silo ganz oben am Bildschirm 
befindet, beträgt die Reichweite 175. Die Gesamtentfernung von der linken 
unteren bis zur rechten oberen Ecke beträgt etwa 390. 

Zweitens: Der Schußwinkel (in Grad gemessen) wird von der Horizonta- 
len zur rechten Seite der jeweiligen Abschußbasis gelegt. Das heißt: Für Silo 2 
liegen die sinnvollsten Schußwinkel zwischen 90° und 180° - also Vorsicht! 
(Bei Silo 1 liegt allerdings der sinnvolle Bereich zwischen ®° und 99°.) Eine der 
Eigenschaften des Programms ist die, daß es Ihnen nichtsagt, ob Sieeinen Fehler 
machen, etwa den, eine Rakete aus dem Bildschirm hinauszuschießen. Es zieht 
einfach eine Rakete von Ihrem Vorrat ab und zeigt keine Spur der Rakete an. 

Hier das vollständige Listing. 


ANTI-RAKETEN-ABSCHIRMUNG 


1 RANDOMIZE 
10 LET display = 500: LET genmis = 1009 
20 LET movmis = 1500 
30 LET fire = 2500: LET prnscr = 3009: LET hitest = 3500 
40 DIMm (3, 20): DIM s (2) 
50 LETcity=2:LETs (1) = 2®: LETs (2) = 20 
60 LETkilsilo = 4B90: LET kilcity = 4509 
70 LETscore=® 
80 LET kbhit = 5000 
1090 GO SUB display 
118 IFcity<1ORs(1) +s (2) =® THEN GO SUB prnscr 
120 GO SUB genmis 
130 GO SUB movmis 
1609 GOTO 119 
500 LETxs=8 
510 FORI=1TO2 
520 FORx=xsTOxs+ 20 
530 PLOTx,® 
540 DRAWO,A 
550 NEXTx 
560 LETxs = 224 
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570 
580 
599 
699 
619 
620 
639 
649 
659 
669 
670 
680 
699 
1999 
1919 
19029 
1039 
1949 


1959 
1055 
19069 
1979 
1989 
1599 
1505 
1519 
1529 
1539 
1549 


NEXTI 
LET xs = 56 
FORI=1T02 


FORx=xsTOxs + 36 STEP 3 

LET h = INT (RND+1®) + 3 

FORy=9TOh 

PLOT x,y 

DRAW 3, y 

NEXT y 

NEXT x 

LET xs = 144 

NEXTI 

RETURN 

FORI=1T05 

LET x = INT (RND+199) 

LET a= (RND*PI/2) + .91 

FOR p = 1 TO 29 

IFm (3,p) =® THEN LETm (1,p) =x: 

LET m (2, p) = 175: LET m (3, p) = a: GO TO 1969 
NEXT p 

GO SUB kbhit 

NEXTI 

GO SUB kbhit 

RETURN 

FOR p = 1 TO 2® 

IF m (3, p) = ® THEN GO TO 1589 

PLOT FLASH ®; m (1,p),m (2, p) 

LET xo = 20*COS m (3, p) 

LET yo = -20*SIN m (3, p) 

IFm (1,p) + xo > 2550Rm (2,p) +yo <® 
THEN LET m (3, p) = ®: GO SUB hitest: GO TO 1589 
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1559 
1569 
1570 
1573 
1575 
1589 
1585 
1599 
2509 
2505 
2519 
2520 
2523 
2525 
2539 
2540 
2545 


2550 
2560 
2570 


2619 
2625 
2630 
2799 
2710 
3990 
3019 
3029 


DRAW xo, yo 

LETm (1,p) =m (1,p) + xo 

LETm (2,p) =m (2,p) + yo 

PLOT FLASH 1; m (1, p), m (2, p) 

GO SUB kbhit 

NEXT p 

GO SUB kbhit 

RETURN 

INPUT "Entfernung, Winkel:”; rg, ag 

IFs (VAL d$) = 0 THEN RETURN 

IF d$ = "1" THEN LET xb = 18 

IF d$ = "2" THEN LET xb = 234 

PLOT xb, ® 

LETs (VAL d$) =s (VALd$) - 1 

LET xf = rg*COS (ag*PI/18®) 

LET yf = rg*SIN (ag*Pl/18®) 
IFfx+xb<®ORxf+xb > 2550R yf<PORyf> 175 
THEN RETURN 

DRAW xf, yf 

FOR p = 1 TO 29 

IFABS (xf+xb- m (1,p)) > 150RABS (yF-m(2,p)) < 15 
THEN GO TO 2700 

LET score = score + 1 

PLOT FLASH ®; m (1, p), m (2, p) 

LETm (3,p) = ® 

NEXT p 

RETURN 

CLS 

IFcity < 1 THEN PRINT AT 19, 2; ""Staedte zerstoert” 
IFs(1) +s (2) =® THEN PRINT AT 19, 2; 


"Keine Abwehrraketen mehr’ 


3030 PRINT AT 12, 5; score; "Raketen abgeschossen” 
3040 GOTO 9999 
3500 LETxt=m(1,p) +xo 
3510 IFxt> 7ANDxt < 29 THEN LET xs = 8: GO SUBkkilsilo 
3520 IFxt> 223 AND xt < 245 THEN LET xs = 224: 
GO SUBkilsilo 
3530 IFxt > 55 AND xt < 93 THEN LET xs = 56: GO SUB kkilcity 
3540 IFxt> 143 AND xt < 181 THEN LET xs = 144: 
GO SUBkilcity 
3550 RETURN 
4000 IFxs=8THENLETS(1)=® 
4010 IFxs= 224 THEN LETS (2) =® 
4020 PRINTAT21,xs8; "OD OD” 
4030 RETURN 
4500 LETcity=city-1 
4510 FORr=19TO 21 
4520 PRINTATıxs8 ’OUOUOGO DO” 
4530 NEXTr 
4540 RETURN 
5000 IFINKEYS = "" THEN RETURN 
5010 LET d$ = INKEYS 
5015 IFCODEd$ < A9OR CODE d$ > 51 THEN RETURN 
5020 GO SUB fire 
5030 RETURN 


IM EINZELNEN 


Die meisten Programme in diesem Buch sind ziemlich kurz und bei ein bißchen 
Übung recht leicht zu bewältigen. Das obenstehende ist etwas ernsthafter 
(weniger in der Absicht als im Programminhalt) und lohnt, daß man sich ein 
bißchen näher damit befaßt, weil die Methode, nach der es geschrieben wurde, 
eine gebräuchliche und sehr wirksame ist. Man nennt sie top-down-Prinzip 
oder schrittweise Verfeinerung. 

Der Grundgedanke: Das Programm wird in eine Sequenz von Haupt- 
schritten aufgeteilt. Wir untersuchen dann jeden Schritt und entscheiden, ob er 
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mühelos direkt codiert werden kann oder aber, ob es lohnt, ihn in kleinere 
Schritte aufzuspalten. Das setzen wir fort, bis alle Schritte so klein sind, daß sie 
ohne Schwierigkeiten codiert werden können. Auf jeder Ebene wird ein solcher 
Schritt zu einer Subroutine. 

Bei unserem Programm sieht die erste Stufe der Strukturierung etwa so 
aus: 


Variable indizieren 


Städte und Abschußbasen anzeigen 


Solange noch neue Raketen generieren 

Abwehrraketen 

und Städte vor- 

handen sind vorhandene Raketen bewegen 
Stand anzeigen 


Wenn Sie sich das Listing ansehen, können Sie erkennen, daß die Initialisierun- 
gen zwischen den Zeilen 1 und 89 geschehen. Sie rechnen also vielleicht damit, 
etwas vorzufinden wie 


190 GO SUB 509 
als Einstieg in die Display-Routine. Wie Sie aber sehen, steht da 
100 GO SUB display 


und dieses display’ ist eine Variable, die im Initialisierungsbereich auf 50% 
festgesetzt wird. Dadurch wird das Programm leichter lesbar, was besonders bei 
der Fehlersuche nützlich ist. Beispiel: Sobald das Programm einmal gelaufen ist, 
können Sie 


LIST display 
eintippen, statt sich 
LIST 599 


merken zu mussen, wenn Sie sich diesen Programmbaustein ansehen wollen. 

Die Zeilen zwischen 11® und 169 stellen einfach die "während" -Schleife 
im Gerüst der Programmbeschreibung auf. Sie sehen, daß in der Schleife zwei 
Unterprogramme aufgerufen werden, eine zur Generierung neuer Raketen 
(genmis), und eine zur Bewegung von Raketen (movmis), wie Sie erwartet 
haben werden. 

Sehen wir uns zum Exempel "'movmis’” an. Um eine Rakete bewegen zu 
können, müssen wir wissen, wo sie ist. Es kann zu jedem Zeitpunkt höchstens 
20 Raketen geben; in einem Array m sind 3 Informationswerte über jede davon 
enthalten (x-Koordinate, y-Koordinate und Angriffswinkel). Es wird davon 
ausgegangen, daß keine Rakete vorhanden ist, wenn ein Angriffswinkel-Fach 
Null enthält. So brauchen wir von drei Parametern nur einen zu prüfen, um zu 
erfahren, ob eine Rakete vorhanden ist. Später, wenn wir eine Rakete zerstören 
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wollen, brauchen wir den Winkel nur auf Null zurückzusetzen, um ihr Hinschei- 
den anzuzeigen. 
Die Aufgliederung innerhalb von "'"movmis’’ sieht demnach so aus: 
Wenn keine Rakete, Rest der Schleife auslassen 


Neue Koordinaten für Rakete berechnen 


Für alle mög- Wenn Rakete jetzt außerhalb Bildschirm, 
lichen Raketen- auf Treffer bei Stadt/Silo prüfen 
eingaben und Rest der Schleife auslassen 


Neue Raketenposition darstellen 
Test, daß Keyboard bedient wird 


Wenn Sie sich das Listing ansehen, erkennen Sie, daß zwei von den 
Blöcken als Subroutinen geschrieben sind: der “Test auf Treffer bei Stadt/Silo‘ 
(genannt “hitest”) und der “Test, ob Keyboard bedient’ (genannt ""kbhit'). 
Diese letzte Routine ist da, weil wir wissen müssen, ob der Benutzer eben das 
Keyboard bedient hat, um eine Abschußbasis in Betrieb zu nehmen. 

Sehen wir uns nun kbhit an: 


Wenn keine Taste gedrückt, dann RETURN 
Wenn gedrückte Taste nicht 1 oder 2, dann RETURN. 


Abwehrrakete abfeuern 


Sie sehen, daß "fire’’ (das Abfeuern der Rakete) eine weitere Subroutine ist. 
Ist deutlich geworden, daß man mit dieser Methode sich jeweils nur mit 
einem kleinen Abschnitt befassen muß? Eben das kommt meiner natürlichen 
Trägheit entgegen. 
Ich überlasse es Ihnen, die Gerüste von genmis, fire und prnscr nachzu- 
bauen. 


REM: ERZÄHL IHNEN, WAS REM IST 


Bei der Entwicklung eines Programms ist die REM-Anweisung eine wichtige 
Gedächtnisstütze. Der Computer ignoriert alle REM-Anweisungen außer bei 
einem LIST-Befehl. Sie können sich also kleine Hinweise geben, um daran 
erinnert zu werden, warum ein bestimmter Befehl da ist, wo er steht. Ich habe 
in diesem Buch allerdings nicht viele REM verwendet, und zwar deshalb nicht, 
weil alle Programme ohnehin im einzelnen erläutert werden. Wenn Sie aber 
eigene Programme schreiben, sind REM-Anweisungen ein Himmelsgeschenk. 
Sie können durch kleine Kniffe REM-Anweisungen in einem Listing hervorhe- 
ben: Fügen Sie eine Reihe von Sternchen an, also REM******, oder verwenden 
Sie Steuerzeichen, um sie in einer anderen Farbe anzeigen zu lassen (siehe 
Handbuch S. 114). 
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ABWANDLUNGEN UND VERBESSERUNGEN 


In dem Augenblick, wo Sie eine Abschußbasis in Betrieb nehmen, bestä- 
tigt das Programm nicht, welches Silo es ist. Sorgen Sie dafür, daß die 
gewählte Abschußbasis blinkt (und einige Sekunden nach dem Abfeuern 
der Rakete abschaltet). 

Raketen- und Abwehrraketenspuren sehen gleich aus. Geben Sie ihnen 
verschiedene Farben. (NB: Farbeigenheiten können dazu führen, daß das 
Ziehen neuer Spuren die Farben der alten verändert. Das läßt sich nicht 
verhindern, fällt aber nicht ins Gewicht.) 

Bei verfeinerten Ausgaben dieses Spiels sind die anfliegenden Raketen 
MIRV-Waffen und zerfallen beim Absturz in Mehrfachsprengköpfe. Das 
ist nicht schwer zu erreichen, bedarf aber gründlicher Überlegung! 

Die Zerstörung der Städte geht recht dürr vor sich (sie werden buchstäb- 
lich ausgelöscht!). Wie wäre es mit einer Pilzwolke und ein paar Ruinen? 
Überlegen Sie sich Geräuscheffekte. (Sie verlangsamen das Spiel damit 
aber stark.) 

Da kbhit recht selten aufgerufen wird, können Sie 1’ oder ‘2’ ziemlich 
lange drücken, bevor eine Reaktion eintritt. Experimentieren Sie mit an- 
deren Stellen, wo Sie "GO SUB kbhit’’ im Programm unterbringen kön- 
nen, um die Reaktionszeit zu verbessern, ohne den Rest des Displays allzu 
auffällig zu verlangsamen. 


23 PEEK UND POKE 


Mit dem inneren Aufbau des Spectrum brauchen Sie sich in der 
Regel nicht zu befassen. Wenn Sie wollen, können Sie den Com- 
puter aber veranlassen, Ihnen mitzuteilen, was er treibt - und kön- 
nen das für Ihre Zwecke verändern. 


Ich könnte eigentlich einen ganzen Band von diesem Umfang über PEEK und 
POKE allein schreiben. Das Meiste davon wäre viel zu technisch, um Interesse 
zu erwecken. Diese wichtigen Dinge aber ganz beiseitezulassen, ware schade. 
Mit PEEK und POKE können Sie wirklich viel darüber erfahren, wie Computer 
arbeiten. Sie müssen also zuerst einmal eine Vorstellung davon haben, wo Sie 
anfangen sollen: Wie man dem Spectrum beibringt, von seinen innersten Ge- 
heimnissen etwas preiszugeben. 

Auf Seite 8 habe ich erwähnt, daß Computer Information als Folgen von 
® und 1 speichern. Jede solche ® oder 1 wird ein Bit genannt (abgekürzt für 
binary digit = Binärziffer). Sie können sich eine Kette von ® und 1 als eine Zahl 
im Binärsystem vorstellen - es ist ganz wie das Dezimalsystem, nur verwenden 
wir anstelle von Einern, Zehnern, Hunderten, Tausendern usw. Einer, Zweier, 
Vierer, Achter und so fort. Unter den Fertigprogrammen finden Sie eines über 
Umwandlung Binär/Dezimal, wo das ein bißchen ausführlicher erklärt ist. 

Über das Binärsystem brauchen wir eigentlich nichts zu wissen, aber wir 
müssen begreifen, daß Computer mit Bits arbeiten. Ihre Bits jonglieren sie in 
Paketen, die Bytes genannt werden. Eine Byte ist eine Folge von acht Bits. So 
sind 10110901 und 99111911 typische Bits. 

Es gibt 256 mögliche verschiedene Bytes; wenn Sie in Dezimal verwan- 
deln, erhalten Sie die Zahlen von ® bis 255. Diese Zahlen erkennen Sie vielleicht: 
die CODE-Werte der Spectrum-Zeichen sind Zahlen zwischen ® und 255. In der 
Tat wird jedes Zeichen durch genau ein Byte dargestellt. 

Ein Programm (und einige der Schritte, die bei seiner Ausführung gelei- 
stet werden) ist lediglich eine Folge von Zeichen, also kann der Computer sie als 
eine Folge von Bytes speichern. Damit alles in der richtigen Reihenfolge bleibt, 
gibt er jedem Byte eine Bezugsnummer, genannt seine Adresse. Sie sollten sich 
das Programm also so vorstellen, daß es außerhalb des Computers in einer Form 
wie dieser existent ist: 


Adresse Byte 

1 11091199 
2 01119909 
3 Wlululutuluu]n 
4 11191111 


Leider läßt die “Architektur” des Computers ein solches Schema ein 
bißchen allzu einfach erscheinen. 
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Der Spectrum besteht aus Mikrochip-Anordnungen mit den Namen 


ROM (Read Only Memory = Festspeicher oder Nur-Lese-Spei- 
cher) 

RAM (Random Acess Memory = Speicher mit wahlfreiem Zugriff 
oder Direktzugriffsspeicher) 

CPU (Central Processing Unit = Zentraleinheit) 

SCL (Sinclair Logic Chip = Sinclair Logikschaltung) 


ROM speichert den BASIC-Interpreter oder -übersetzer, RAM Ihr Programm 
und alles, was geleistet werden muß, während es gefahren wird, CPU über- 
nimmt Arithmetik und Logik, und SCL organisiert die Zusammenarbeit der 
anderen. 

CPU oder SCL interessieren uns nicht, um so mehr aber ROM und RAM. 
Mit PEEK können wir genau feststellen, welche Bytes in welchen Adressen von 
ROM und RAM gespeichert sind. 

Beispielsweise zeigt eine Anweisung 


PRINT PEEK 837 


das in Adresse 837 gespeicherte Byte an (es ist 4® oder in Binärschreibweise 
901919®®). Angezeigt wird die entsprechende Dezimalzahl, so daß es nicht 
schadet, sich ein Byte als einfach eine Zahl zwischen ® und 255 vorzustellen. 

Wo sollen wir nachsehen, wenn wir mit PEEK sinnvoll umgehen wollen? 

Die ROM-Adtressen reichen von ® bis 16383. Es gibt zweifellos gute 
Gründe, mit PEEK in ROM nachzusehen - Sie können feststellen, wie der 
Spectrum den Fernsehapparat anweist, ein bestimmtes Zeichen anzuzeigen 
und damit seine Spielchen zu treiben (etwa, es in vierfacher Größe zu bringen.) 

Interessanter sind aber die RAM-Adressen. Sie beginnen bei 16384; 
diejenigen bis zu 23754 (oder mehr, wenn das Mikrolaufwerk angeschlossen 
ist) werden von der Maschine gesetzt und verwendet. Ihr Programm kommt in 
eine Adresse, die in der Systemvariablen PROG gespeichert ist; sie befindet sich 
in den Adressen 23635 und 23636. Die Startadresse für das Programm ist 
übrigens 


PEEK 23635 + 256*PEEK 23636 


Ohne das Mikrolaufwerk müßte das 23755 sein. Versuchen Sie es und sehen Sie 
selbst. 

Um herauszufinden, was in RAM gespeichert ist, lassen Sie den Spectrum 
die Arbeit tun. (Machen Sie das immer, wo es geht!) Hier ein Programm dafur: 


10900 LETq = PEEK 23635 + 256 » PEEK 23636 

10108 LETr= PEEKq 

1020 IFr > 23THEN PRINT q; "[J] [J"; TAB 12; CHR$r 
1030 IFr < = 23THEN PRINT q; "[J] [J"; ; TAB 12; "?" 
1049 LETq=q+1 

1050 GOTO 1919 
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Ich habe große Zeilennummern verwendet, weil ein Testprogramm davorgesetzt 
und festgestellt werden soll, wo und wie es gespeichert wird, indem wir GO TO 
1000 verwenden. 

Tippen Sie das ein, dazu ein Testprogramm: 


10 REM start 
20 PRINTATO®, 19; +" 


Geben Sie jetzt GO TO 1P0® und passen Sie auf. Sie erhalten diese Anzeige: 


23755 ) ? 
237566 19 ? 
23757 7 ? 
23758 \) ? 


23759 234 REM 
23769 115 s 
23761 116 t 
23762 97 a 
23763 114 r 


23764 116 t 
23765 13 ? 
23766 ) ? 
23767 20 ? 
23768 23 ? 
23769 ) ? 


23770 245 PRINT 
23771 172 AT 
23772 48 ) 


23773 14 ? 
23774 Ö ? 
23775 D, ? 
23776 Ö ? 


Dann will es wissen, ob abgerollt werden soll, aber wir möchten uns ansehen, 
was auf dem Bildschirm steht. 

Wir können unser Programm - jedenfalls den größten Teil davon - in der 
dritten Spalte entstehen sehen: REM, s, t, a, r, t,..., PRINT, AT, ®,... Aber 
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anderes Zeug ist auch dabei. Die dritte Spalte scheint zum besseren Begreifen 
nichts beizutragen, aber die zweite tut es. In Adresse 23756 finden wir 19, in 
23767 steht 2®: Vermutlich sind das die Zeillennummern. (Bei den niedrigeren 
Zeilennummern ist das ein bißchen eigenartiger, als es aussieht, und die 7 in 
23757 und die 23 in 23768 sind in Wahrheit die Zahlen der Zeichen in den 
betreffenden Zeilen: siehe Handbuch, Kapitel 24. Aber das meiste ergibt doch 
sofort Sinn.) 

Die Fragezeichen in Spalte 3 stehen aus gutem Grund dort: Wenn Sie in 
Zeile 1020 "IF r > 23’ weglassen und 1939 streichen, läuft das Programm 
nicht. Das liegt daran, daß diese Zeichen Steuerzeichen sind (die beispielsweise 
Farben setzen). Der Computer versucht sie als Befehle auszuführen, versteht 
nichts und hält mit einer Fehlermeldung an. Was sie sind, können Sie aber aus 
der Zeichentabelle im Handbuch, Anhang A (oder Datenblatt) erfahren. Bei- 
spiel: In Adresse 23756 haben wir Zeichen Nummer 13, das ENTER ist - ah ja, 
wir haben es vorhin ja wirklich gedrückt, nicht wahr? 

Ein paar Details machen also Kopfzerbrechen, aber Sie sehen doch, wo 
das Programm gespeichert ist, und da sitzt es wirklich. Damit Sie mehr davon 
sehen, drücken Sie "y' für ein Abrollen des Bildschirms (eine Einrichtung, die 
unser PEEK-Programm besonders nützlich macht). Nun erhalten wir 


23777 Ö ? 
23778 Ö ? 
23719 44 ‚ 
23780 49 1 
23781 48 ) 
23782 14 ? 
23783 ") ? 
23784 Ö ? 
23785 19 ? 
23786 Ö ? 
23787 ® ? 
23788 59 ’ 
23789 34 

23790 42 * 
23791 34 


23792 13 ? 


und Sie können die Auflistung nach gelegentlichem Abrollen noch ziemlich 
lange fortsetzen. Bald listet sich die Routine ab Zeile 109P auf... 

Versuchen Sie ein paar andere Programme in den Zeilen 19, 2®, 30 etc. 
Lassen Sie die Zeilen 1000-1940, wie sie sind, und gehen Sie mit GO TO 1909 
daran, Ihre Programme über PEEK zu besichtigen. Sie werden in der Auflistung 
bald Ansätze eines Schemas erkennen. 
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Ein offenkundig eigentümlicher Punkt ist der, wie Zahlen gespeichert 
werden. Die 19 in PRINT AT ®, 19, zum Beispiel, scheint die Adressen 23780 
-23787 zu besetzen. Viel Platz für eine so kleine Zahl, möchte man meinen. Das 
hängt aber mit der Tatsache zusammen, daß der Spectrum Fl/ießkomma- 
Arithmetik beherrscht (Dezimalzahlen in der Art von 23.567) und einen geeig- 
neten Code verwendet. Sie können sich stundenlang allein damit amüsieren, zu 
verfolgen, wie eine Zahl konkret gespeichert wird. 

Aber das wahrhaft Schöne daran ist: Seit Sie wissen, wo ein bestimmtes 
Programmbyte zu Hause ist, können Sie es verändern. Die Anweisung, die 
Ihnen diese schreckliche Macht über den armen Spectrum verleiht, heißt 


POKE 


Das wollen wir in Aktion sehen. 

Was leistet unser kleines Programm von oben? Es zeigt an der Position ®, 
10 * an. Geben Sie RUN und sehen Sie selbst. 

Gehen wir mit POKE hinein. Fügen Sie zwei Programmzeilen an: 


30 POKE 23799, 96 
49 GOTO1P 


Fahren Sie es mit der Eingabe 
GO TO 30 


Statt * wird Ihnen £ angezeigt. 
Warum? Weil Zeile 30 in Adresse 23790 (wo das ursprüngliche * gespei- 
chert war) mit POKE das neue Zeichen mit Code 96 hineinsetzt, das £ ist. 
Wenn Sie der Maschine LIST befehlen, werden Sie feststellen, daß Zeile 
20 des ursprünglichen Programms jetzt lautet 


20 PRINTATB, 19; "Ef" 


Experimentieren wir noch ein bißchen mehr. Drücken Sie BREAK und nehmen 
Sie die Zeilen 30 und 49 heraus. Ändern Sie Zeile 20 mit EDIT zu ihrem früheren 
Wortlaut ab. Machen Sie aus der ® gleichzeitig eine 1, so daß es jetzt heißt 


20 PRINTAT 1,10; "+" 


Jetzt GO TO 1000 und alles wieder mit PEEK prüfen. Lassen Sie abrollen, wenn 
der Bildschirm voll ist. 

Sie werden die Veränderung bemerken. Aus den Adressen 23772 und 
23776 wurde 


23772 49 1 
23776 1 ? 


Sonst bleibt alles beim alten. 
Um unser neues Wissen zu testen, fügen Sie folgende Programmzeilen 
an: 
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30 POKE 23772, 49 
40 POKE 23776, 1 
59 GOTO29 


Ändern Sie Zeile 20 wieder ab zu PRINT AT ®, 19; "+". Drücken Sie RUN. 

Der Bildschirm sollte zwei Sternchen zeigen, auf den Bildschirmzeilen ® 
und 1. Der Computer geht das erste Programm durch und zeigt auf Bildschirm- 
zeile ® an, dann setzt er mit POKE die Werte, die für Bildschirmzeile 1 gebraucht 
werden; mit GO TO 20 muß er danach auf der neuen Zeile erneut anzeigen. 

Versuchen Sie LIST; erneut werden Sie entdecken, daß aus Zeile 2® 
wieder PRINT AT 1, 19; "+" geworden ist. 

Inden ROM können Sie mit POKE nicht hineingehen, versteht sich —- man 
kann ihn nur lesen! Ist auch gut, denn ein versehentliches POKE könnte den 
BASIS-Interpreter ruinieren. Aus diesem Grund dürfen Sie ohne Bedenken 
nach Lust und Laune mit POKE durch die Gegend fahren, um zu sehen, wasssich 
abspielt. 

Die Möglichkeiten, die POKE eröffnet, sind riesengroß. Um damit aber 
richtig umgehen zu können, müssen Sie mehr über die genauen internen Codes 
wissen, die der Spectrum verwendet. Kapitel 24 und 25 des Handbuchs liefern 
die Grundkenntnisse, die Sie brauchen. Wenn Sie sehr eifrig sind, können Sie 
den Rest mit der PEEK-Routine oben, Zeilen 1099-1959, ergründen. Mehr will 
ich nicht sagen, weil es besser ist, selbst dahinterzukommen, als eine langat- 
mige Beschreibung zu lesen, die ein anderer verfaßt hat. Wie bei anderen 
Abschnitten des Buches wollte ich Sie aber in eine sinnvolle Richtung lenken. 
Bis Sie hier angekommen sind, werden Sie erkannt haben, daß PEEK und POKE 
nicht die schrecklichen Rätsel sind, als die sie oft hingestellt werden. Sie 
dringen nur tiefer ein in das System, wie der Spectrum funktioniert. Experimen- 
tieren Sie mit den beiden - eine faszinierende Herausforderung, auf die sich 
einzulassen sehr lohnend sein kann. 


128 


24 TIPS 


Neben ein, zwei Problemen, die immer wieder auftreten, gibtes den 
einen oder anderen nützlichen und weniger bekannten Kniff. Hier 
die unverblümte Wahrheit... 


HINDERNISSE, DIE EINEM ZU SCHAFFEN 
MACHEN 


1. Es ist ganz natürlich, daß man versucht, eine Zahl x dadurch ins Quadrat zu 
erheben, daß man x ? 2 berechnet. Das geht gut bei positiven Zahlen; obwohl 
aber das Quadrat einer negativen Zahl durchaus Sinn ergibt, funktioniert der 
nach oben weisende Pfeil hier nicht. (Der Grund: x f a wird berechnet als EXP 
(a*LNx), und der Logarithmus einer negativen Zahl ist nicht definiert. Nehmen 
Sie, wenn x vermutlich negativ wird, lieber x * x. 


2. Im gleichen Zusammenhang: Wenn x eine ganze Zahl ist, hat x T 2 die 
unerfreuliche Angewohnheit, nicht ganz genau zu sein. Das kann zu Schwierig- 
keiten von der Art führen, wie wir sie in Debugging V besprochen haben. 
Ebenso bei x f 3: Es ist wirklich. oft besser, man schreibtx *x * x. 


3. Wenn Sie in einer Zeile mit Mehrfachanweisungen REM verwenden, dürfen 
Sie nicht vergessen, daß alles, was danach kommt (in dieser Zeile) vom Com- 
puter unbeachtet gelassen wird. So hat 
10 REM start: LETx = 99 
überhaupt keine Wirkung. Dagegen setzt 
10 LETx = 99; REM start 
x auf 99. 
4. Jeder IF/THEN-Befehl wirkt so: Die ganze Zeile nach dem THEN wird 
ausgeführt, vorausgesetzt, die IF-Bedingung ist erfüllt. Trifft das aber nicht zu, 
führt die Maschine von den Befehlen nach THEN überhaupt nichts aus. So setzt 
10 IFx=®THENLETy=G:IFx <> OTHENLETy>=1 


y dann auf ®, wenn x gleich ®, wird aber völlig übergangen, wennx <> ®. Im 
Gegensatz dazu wird bei den getrennten Zeilen 


10 IFx=®THENLETy=® 
20 IFx <> ®THENLETy=1 


y bei jedem x, das nicht Null ist, auf 1 gesetzt. Falls Ihre bedingten Befehle also 
schiefgehen, überprüfen Sie zuerst Ihre Mehrfachbefehle! 
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5. In einer IFITHEN-Anweisung behandelt der Computer den gesamten Aus- 
druck zwischen IF und THEN, bevor er prüft, ob sie wahr ist. Das kann zu 
Zusammenbrüchen und unbeabsichtigten Fehlermeldungen führen. Beispiels- 
weise verursacht 


10 IFx$ <> ""ANDVALx$=5THENSTOP 


dann einen Zusammenbruch, wenn x$ leer ist - obwohl der Bestandteil x$ <> 
“" falsch ist und daher die ganze Bedingung ohne Rücksicht auf den Wert von 
VAL x$ als falsch gilt. Der Computer besteht trotzdem darauf, VAL x$ zu 
berechnen, wenn x$ = "" "", was er nicht mag. Sie mögen ja meinen, Sie hätten 
Ihr Programm gegen Zusammenbrüche geschützt, aber das kann ein Irrtum 
sein... 


6. Es gibt zwei Möglichkeiten, Leerstellen zu setzen. Einmal mit der SPACE- 
Taste, zum anderen mit Grafik-8 bei CAPS SHIFT. Das sind für den Spectrum 
nicht dieselben Zeichen. Eine Suche nach Leerstellen mit dem Befehl 


18 IFns(i) = "I" THEN GO TO 5000 


scheitert also, wenn die Leerstelle in n$ (i) nicht dieselbe Leerstelle ist wie die 
in Zeile 1® Ihres Programms. Leider können Sie den Fehler in einer Auflistung 
nicht erkennen! 


7. Sie können ein Bild durch SAVE sichern mit 
SAVE “Picture’’ SCREEN$ 


Es ist schrecklich einfach, es mit 


LOAD "Picture” 


wieder laden zu wollen - dann erscheint zwar die Meldung "Bytes: Picture”, 
aber es rührt sich nichts. Sie hätten natürlich befehlen müssen 


LOAD “Picture” SCREEN$S 


8. Die Qualität des Farbdisplays hängt in starkem Maß von der Qualität Ihres 
Fernsehapparats und der Feineinstellung ab. Bei einem billigen tragbaren Farb- 
fernseher kann es sein, daß das Display überhaupt nicht befriedigend ausfällt: 
Kaufen Sie also auf keinen Fall eigens einen kleinen Farbfernseher als Monitor, 
ohne sich vorher zu vergewissern, daß er in Ordnung ist. Wenn Sie im Laden 
Ihren Spectrum vor dem Kauf nicht anschließen dürfen, dann gehen Sie in ein 
anderes Geschäft! 


9. Wenn Sie versuchen, ein Programm mit LOAD zu laden, ertönt aus dem 
Lautsprecher ein sehr lauter, schriller Piepton, sobald ein Programmname auf- 
taucht. Wenn Sie diesen Ton hören und auf dem Bildschirm nichts erscheint, ist 
etwas ganz entschieden nicht in Ordnung. 


10. Wenn Sie ein Programm im Speicher haben und es auf Band sichern wollen, 
aber nicht mehr wissen, an welcher Stelle auf dem Band Sie sind, und außerdem 
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befürchten, eine zu große Lücke zu lassen oder etwas Wichtiges zu überschrei- 
ben, geben Sie ein 


VERIFY "Kaese” 


wobei "Kaese” ein Name ist, der für kein Programm verwendet wird. Lassen Sie 
das Band laufen und beobachten Sie die Meldungen, um festzustellen, wo Sie 
ungefähr sind. An der richtigen Stelle halten Sie das Band an, drücken BREAK 
und laden Ihr Programm wie gewohnt mit LOAD. 


KNIFFE MIT SYSTEMVARIABLEN 


1. Einen weitaus befriedigenderen Tastatur-Knackton können Sie mit der 
Direkteingabe 


POKE 23699, 50 


erzielen. Andere Zahlen als 59 führen zu leicht veränderten Ergebnissen, aber 50 
ist ungefähr richtig. 


2. Sie können die automatische Wiederholung durch direkte Eingabe von 
(etwa) 


POKE 23562, 2 


beschleunigen. Verändern Sie für schnellere oder langsamere Wiederholungs- 
automatik zu 1 oder 3. Wenn sie ganz wegfallen soll, zu ®. 


3. Sie können die Zeit, in der die Maschine vor einer automatischen Wiederho- 
lung wartet, durch Eingabe von (etwa) 


POKE 23561, 20 
verkürzen. Weniger als 2® verkürzt die Verzögerung, mehr erhöht sie. 


4. Manche Programme müssen automatisch abrollen. (Viele ZX81 -Spiele nut- 
zen das Abrollen, und Sie möchten sie vielleicht auf den Spectrum übertragen.) 
Einen SCROLL-Befehl gibt es aber nicht. 

Sie können dem Ding aber einreden, daß es abrollt, wenn Sie die Routine 


1000 PRINT AT21,® 
1010 POKE 23692, 2 
1020 PRINT 
verwenden. Überhaupt: Sobald der Bildschirm voll wird, geben Sie POKE 


23692 mit einer Zahl größer als 1 und versuchen mit PRINT eine neue Zeile 
anzuzeigen: Das führt zu einem Abrollen ohne Eingabe von der Tastatur. 
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5. Der Befehl DRAW x, y zeichnet, fein, wie er ist, von der derzeitigen laufenden 
Position x®, y® zur neuen Position x® + x, y® + y. Das heißt, x und y sind die 
Versetzungen, die gebraucht werden, nicht die neuen Koordinaten. Ein Weg, 
von der laufenden Position zu einer neuen Position x, y zu zeichnen, besteht 
darin, den Befehl 


DRAW x-PEEK 23677, y-PEEK 23678 


zu verwenden. Der Vorteil: Das funktioniert sogar dann, wenn Sie nicht mehr 
wissen, wo die letzte PLOT-Position war (was sehr leicht vorkommt), und führt 
nicht zu kumulativen Rundungsfehlern, wenn Sie das in einer Schleife benüt- 
zen, etwa, um Kurven zu zeichnen. Die Adressen 23677 und 23678 enthalten 
natürlich die Koordinaten des zuletzt dargestellten Punktes! 
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25 WOVON ICH IHNEN NICHTS 
ERZAHLT HABE 


Und nun: Die grauenhafte Wahrheit... 


In Ihrem Spectrum steckt viel, viel mehr, als ich in diesem Buch auch nur habe 
andeuten können. Ich hätte liebend gerne mehr aufgenommen, aber dann wäre 
ein siebzehnbändiges Werk daraus geworden, von dem jeder Band Sie fünfzig 
Mark gekostet hätte... .. Bis Sie aber diesen Band überstanden haben, wird das 
Handbuch von Sinclair viel verständlicher sein. (Nichts gegen das Handbuch - 
es hat eben wie alle Handbücher die Verpflichtung, Sie über alles zu unterrich- 
ten, was dann auch zu manchmal knappster Darstellung führen muß.) 

Beispielsweise habe ich nicht von den mathematischen Funktionen wie 
EXP, COS, TAN, LN gesprochen, habe Ihnen nichts erzählt über benutzerge- 
wählte Funktionen DEF FNA (x, y, z....), über die Bescheid zu wissen sich 
lohnt, ich habe nur eine Verwendung von USR genannt (aber die anderen 
führen zum Maschinencode; siehe Kapitel 26 "Was nun?”), ich habe ein paar 
mehrdimensionale Arrays verwendet, ohne sie zu erklären, ich habe INVERSE 
nicht erwähnt und nichts zu LOAD und SAVE von mir gegeben, weil das 
Handbuch sich sehr deutlich dazu äußert und das ganze System ohnehin fast 
narrensicher ist. 

Aber ich möchte hier vor allem eines betonen: Wenn Sie in einem Pro- 
grammlisting einen Befehl sehen, den Sie nicht verstehen, können Sie es 
trotzdem eingeben und fahren. Sollten Sie auf Abenteuer aus sein, können Sie 
den rätselhaften Befehl abändern und sich ansehen, was herauskommt: Auf 
diese Weise kommen Sie vielleicht sogar dahinter, was er bewirkt. Nur Mut. 
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26 WIE GEHT ES WEITER? 
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Das ist nicht das Ende, sondern erst der Anfang. Die Frage: Wie geht 
es weiter? 


Lesen Sie erneut das Handbuch. 
Es gibt in Deutschland eine ZX-Usergruppe: 
Adresse (in ZX-User Zeitung) 
Auch in anderen Ländern gibt es Usergruppen, etwa in England, zu 
erreichen unter der Adresse 

Tim Hartnell 

44-46 Earls Court 

London W86EJ 
Zeitschriften für Heimcomputer gibt es in Hülle und Fülle, vor allem eine 
ZX81 -Userzeitschrift, gegen eine Schutzgebühr erhältlich bei 

Verlag COOPERATION 

Bonderstr. 2 

8000 München 22 Ä 
Ohne jeden Zweifel wird es bald Unmengen von Software (Bänder) und 
Hardware (Peripheriegeräte) für den Spectrum geben. Lesen Sie die 
Zeitschriften. 
Verfolgen Sie die Kritiken über Hardware und Software in der Fachpresse. 
Die meisten Händler haben einen guten Ruf, aber es gibt auch Cowboy- 
typen, die man am besten meidet, wenn man sie erkennt. 
Für fortgeschrittenere BASIC-Programmiermethoden oder Maschinen- 
code beim Z89-Mikroprozessor empfehlen wir sehr das Buch "'Maschi- 
nencode und besseres Basic’, verlegt bei, ähm, Birkhäuser, Basel, verfaßt 
von zwei Herren namens Stewart und Jones, eine mehr als Iohnende 
Anschaffung. Obschon eigentlich für den ZX81 geschrieben, gilt fast alles 
dort auch für den Spectrum. Für die, die aber alles ganz genau wissen 
wollen, schlagen besagte zwei Herren und der oben genannte Verlag 
gleich doppelt zu: "Weitere Kniffe und Programme für den ZX Spectrum” 
und “ZX Spectrum Maschinencode” erscheinen in Kürze. 
Wenn Sie ihn nicht schon haben, wird sich der 32K RAM -Zusatzspeicher 
bald als unwiderstehlich erweisen. Und achten Sie darauf, wann die 
Mikro-Diskettenlaufwerke auf den Markt kommen ... 


FERTIGPROGRAMME 


Die folgenden Programme sollen dazu dienen, verschiedene Eigenschaften des 
Spectrums anschaulich darzustellen und Ihnen zu zeigen, was man damit alles 
machen kann. Jedes Programm ist in sich abgeschlossen und braucht nur 
eingegeben und mit RUN gefahren zu werden. Die Befehle im Listing muß man 
nicht unbedingt verstehen. 

Bis Sie sich durch dieses Buch hindurchgearbeitet haben, sollten Sie aber 
in der Lage sein, zu analysieren, wie diese Programme funktionieren. Das wird 
allerdings nicht immer ganz leicht sein; es fällt oft schwer, sich an den Program- 
mierstil einer anderen Person zu gewöhnen. Guter Stil verlangt Klarheit, eines- 
teils deshalb, weil es eine nervenzerrüttende Aufabe ist, Programme abändern 
zu wollen, die aussehen wie "Der Arzt von Stalingrad’ auf Chinesisch, und 
anderenteils, weil man dann ohnehin weniger Fehler macht. 

Ich habe bewußt viele Programme mit unsauberen Zeilennummern ste- 
hen lassen. Es ist verblüffend, wie oft sich Fehler einschleichen, wenn man ein 
Programm neu nummeriert. Und ich wollte hervorheben, daß Sie nicht Zeilen- 
nummern verwenden müssen, die Vielfache von 1® sind. Die einzigen Gründe 
dafür, das zu tun, sind abgesehen von Mode oder Pedanterie, Platz für Verän- 
derungen im Programm oder für das Einfügen von Ablaufüberwachern zu 
lassen, wenn man auf Fehlersuche geht. 

In diesen Listings habe ich die Grafikzeichen so gezeichnet, wie sie auf 
der Tastatur erscheinen. Kästchen um einen Buchstaben wie [Hl] bedeuten 
Negativschrift, ein leeres Kästchen zeigt eine Leerstelle an. Offenkundige Leer- 
stellen sind nicht eigens angezeigt, wohl aber solche, die wichtig und leicht 
übersehen werden können. 

Noch ein Wort zur Farbe. Bevor Sie irgendein Programm fahren, können 
Sie BORDER, PAPER und INK durch direkte Eingabe per Keyboard bestimmen. 
Beispiel: 


BORDER 3: PAPER 5: INK 1 


Ich habe solche Befehle in die Fertigprogramme nicht mit aufgenommen — 
wenn Sie wollen, können Sie sie selbst einfügen. Das Ziel war, Ihnen bei der 
Eingabe des Programms Zeit sparen zu helfen und die Sache klarer zu gestalten 
- auch wenn das Display dann nicht ganz so spektakulär ausfällt. Ebenso sind 
manche Programme ziemlich einfacher Art, und zwar deshalb, weil ich hoffe, 
daß Sie zu begreifen versuchen werden, was sie leisten, und sie nicht einfach 
blind abtippen (dafür sollten Sie sich Taschenbücher mit Spielen für Spectrum 
und ZX81 besorgen). 
Die Programme haben keine bestimmte Reihenfolge. Also ran! 
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DIE FLÄCHE EINES DREIECKS 


Als erstes Fertigprogramm habe ich eines ausgesucht, dessen in- 
terne Vorgänge recht nahan der Oberfläche liegen. Es berechnet die 
Flache eines Dreiecks. 


Sind die Seiten eines Dreiecks a, b, c, dann wird seine Fläche bestimmt durch 
die Formel ,/s (s - a) (s - b) (s - c), wobei s = 1/2 (a + b + c). Dieses 
Programm benützt die Formel dazu, die Fläche eines Dreiecks zu berechnen, 
dessen Seiten der Reihe nach mit INPUT eingegeben werden. 


10 INPUTa 
20 PRINT"a= |[]";a 
30 INPUTb 
408 PRINT "b= []";b 
50 INPUTc 


69 PRINT "c= []J";c 

70 LETs= .5*(atbtc) 

75 LETx=s*(s-a)*(s-b)*(s-c) 

80 IFx <®THENGOTO 119 

9d PRINT "FLAECHE IST []"; SOR x 

199 STOP 

118 PRINT "DREIECK KANN NICHT GEBILDET WERDEN” 


Programmhinweise 


1 Programme, die Formeln auswerten und die Lösungen anzeigen, sind so 
durchsichtig, daß es Schwindel wäre, sie als echte Programme auszuge- 
ben! Sie haben eher Ähnlichkeit mit mechanisch ablaufenden Taschen- 
rechnerprogrammen. Auf dieser Stufe kann aber nach meiner Meinung 
ein so leichtes Programm nicht schaden. 

2 Sie können diese Art von Programm leicht so abwandeln, daß jede ver- 
nünftige Formel berechnet wird. Vielleicht ist das ein Weg, mathemati- 
sche Formeln interessanter zu machen und den Spectrum auch zu Lern- 
zwecken zu benützen. Hier ein paar Vorschläge für denkbare Programme: 


a) Die Fläche einer Kugel vom Radius r ist Arr?. 
(r ist auf dem Bildschirm PI: Taste M im erweiterten Modus.) 
b) Das Volumen einer Kugel vom Radius r ist 4/3rr?. 
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f) 


g) 


h) 


Das Volumen eines Zylinders von Radius r und Höhe h ist rr?h. 
Das Volumen eines Kegels vom Radius r und Höhe h ist 1/3rr?h. 
Die Lösungen der quadratischen Gleichung ax? + bx + c = ® 
werden gegeben durch 


x= (-b+,/(b? - 4ac)/2a 


(Berechnen Sie die + und - Wurzeln getrennt. Wenn b - 4ac < ®, 
sind die Wurzeln imaginär. Darauf müssen Sie eingehen, entweder 
mit PRINT "IMAGINAERE WURZELN”, oder indem Sie einen Pro- 
grammteil erfinden, der sie berechnet, falls Sie sich mit komplexen 
Zahlen auskennen. Sie müssen auch die Möglichkeit berücksichti- 
gen, daß a = 9.) 

Die Summe 1 +4+9+... + n? entspricht 1/6n (n + 1) (2n + 1). 
Geben Sien durch INPUT ein und zeigen Sie die Summe mit PRINT 
an. Berechnen Sie das zum Vergleich auch durch Addieren der Serie 
mit FOR/NEXT, sobald Sie das Kapitel SCHLEIFEN auf Seite 26 
gelesen haben. 

Die Schwingungszeit eines Pendels von der Länge I ist T = 2n,/ 
(l/g), wobei g die Beschleunigung infolge der Schwerkraft ist: 981 
cm/sec*. 

In Wirklichkeit ist g von Ort zu Ort verschieden. Eine genauere 
Annäherung ist die, daß der Wert vom Breitengrad B und der Höhe 
h über dem Meeresspiegel abhängt, und zwar nach der Formel 


g = 980.616 - 2.5928 cos (2 L) + 9.0069 cos (2 L) - 0.0003 h 
cm/sec? 


Schreiben Sie ein Programm zur Berechnung von g und T, wenn L, h und | 
bekannt sind. 
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BIN ICH IM MINUS? 


Falls Sie sich für Dreiecke nicht begeistern können: Warum nicht 
ein Programm, mit demr der Stand des Bankkontos berechnet wer- 
den kann? 


10 PRINT "BISHERIGER KONTOSTAND []"; 


20 INPUTb 
30 PRINTb 
40 PRINT "LISTE SOLL” 
50 INPUTd 


60 IFd < BTHEN GO TO 90 
70 LETb=b-d 


80 GO TO 59 
90 PRINT "LISTE HABEN’ 
1098 INPUT 


118 IFd < ®THEN GO TO 149 

120 LETb=b+td 

138 GOTO 199 

140 PRINT "JETZIGER KONTOSTAND [_]"; b 


Programmhinweise 


1 Zeilen 60 und 11® sind Begrenzer (siehe Seite 35). Wenn Sie eine 
negative Zahl eingeben, weiß der Computer, daß Sie die Liste abge- 
schlossen haben. (Diese negative Zahl wird in Ihren Kontostand nicht 
aufgenommen!) 

2 Vergessen Sie neben den notierten Scheckbeträgen die laufenden Aus- 
gaben nicht. (Eine naheliegende erste Verbesserung: sie ins Programm 
einbauen. Vielleicht gelingt Ihnen das.) Und Entnahmen aus Bankauto- 
maten. 

3 Haben: Gehaltsscheck nicht übersehen! Vielleicht läßt sich auch er ein- 
bauen. 

4 Ihre kleineren Kinder können damit stundenlang Bank spielen. 

5 Wenn Sie noch die beiden Zeilen: 


b5 PRINTd 
105 PRINTd 


einfügen, zeigt der Computer die Einzelposten an. Sind es mehr als 20, ist der 
Bildschirm voll, und man muß abrollen, um weitermachen zu Können. 


138 


TIGERJAGD 


Tief im finsteren Sinclair- Wald lauert ein gräßlicher Tiger. Können 
Sie ihn finden? 


PAPER 7: INK 8: BORDER 1 
10 INPUT "Waldgroeße waehlen: max 16 [_]"; w 
15 IFw> 16 THENLETw = 16 
20 FORi=®TO8*wSTEP8 
30 PLOTi + 64,32 
40 DRAWO,8*w 
50 PLOT64,i+ 32 
60 DRAW8E+*w,® 
70 NEXTi 
80 LET z$ = "01234567891111111” 
9 LET$S=-"J U UUDO UDO DO DL D 9123456" 
100 PRINTAT19,8;28 (TOw)+"D]" +”x" 
118 PRINT AT 29, 8; y$ (TO w) 
120 PRINTAT 16 - w, 6; "y"; AT17 - w,® 
130 FORi=1TOw 
140 PRINTTAB6 - (w-i > 9);w-i 
150 NEXTi 
200 LET mx = INT (w* RND) 
210 LETmy=INT(w*RND) 
220 INPUT ‘Wo ist der Tiger? [_]"; x; "[_]"; y 
225 IFx> wORy> wTHEN GO TO 229 
230 LETd= ((mx - x) * (mx - x) + (my - y) * (my - y)) /w/w 
240 LETd=d*8&:IFd>4ATHENLETd=4 
250 PRINT PAPER d + 2;AT17-y,8+x; OVER 1; "I" 
255 IFmx =x AND my =yTHEN GO TO 300 
260 GOTO 229 
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300 PRINTAT 17 - my, 8 + mx; OVER 1; +" 
310 PRINTATOY, ®: FLASH 1; “Erwischt!” 
320 FORi=1TO3® 


330 BEEP 1/i,i 
340 NEXTi 
Programmhinweise 


Sie können jede Waldgröße von 1 bis 16 wählen. Geben Sie mehr ein, 
erhalten Sie Größe 16. Der Wald wird mit x- und y-Koordinaten unten und 
an der Seite gezeichnet (Zeilen 20-70 für den Wald, 80-150 für die 
Koordinaten). Beachten Sie: Der Bildaufbau ist der Hauptteil des Pro- 
gramms! 

Auf die Frage ""Wo ist der Tiger?’ müssen Sie zwei Zahlen zwischen ® und 
w - 1 eingeben: das sind die Koordinaten Ihrer Vermutung. Zahlen 
außerhalb dieses Bereichs, die Sie eingeben, werden nicht beachtet. 

Der Computer zeigt dann an dieser Stelle ein farbiges Quadrat an. Die 
Farbe liefert einen Hinweis darauf, wie nah Sie sind; rot bedeutet sehr 
nah, magenta ziemlich nah, grün ziemlich weit weg und gelb ganz weit 
weg. 

Sie machen weiter, bis Sie den Tiger entdecken. Dann erhalten Sie zum 
feierlichen Anlaß ein blinkendes "+", eine blinkende Glückwunschmel- 
dung und was Musikalisches. (Die Musik steht in den Zeilen 320-340. 
Sie können Sie in Ihren eigenen Programmen verwenden, um dieselben 
Tone hervorzubringen.) ELTERN können, um den Verstand nicht zu ver- 
lieren, diese Zeilen streichen. 

Drücken Sie RUN für einen neuen Versuch. 


Aufgaben 


Sorgen Sie dafür, daß das rote Quadrat blinkt, wenn Sie wirklich ganz nah 
am Tiger sind. Das können Sie in Zeile 250 tun. Fügen Sie nach OVER 1 
eine Anweisung von der Art 


FLASH (d < dieses oder jenes) 


ein und experimentieren Sie, um herauszufinden, welcher Wert dieses 
oder jenes sein sollte, damit etwas Hübsches herauskommt. 

Verändern Sie die Meldung zu einem unmanierlichen Ausdruck. 
Verändern Sie die Musik am Ende: Geben Sie eine Auswahl an Melodien, 
aus der die Maschine willkürlich eine heraussucht, damit es nicht lang- 
weilig wird. 


KOMPONIST 


Sie können selbst Beethoven sein oder der Spectrum — Johann 
Strauß... 


Mit diesem Programm kann der Spectrum Musik machen. Die Noten werden 
der Reihe nach als Einzelbuchstaben oder Einzelbuchstaben mit dem Zeichen 
+ eingegeben, um Halbtöne anzuzeigen. Geben Sie **, um die Notenfolge zu 
beenden und den Spectrum zu veranlassen, daß er die Melodie spielt. 


10 
11 
12 
20 
30 
35 
40 
42 
45 
50 
55 
69 
199 
119 
290 
210 
220 


DIMs (7) 

DIM n$ (2) 

DIM t (1599) 

LETs (1) = - 3: LETs (2) = - 1: LETsS (3) = ®: LETs (4) =2 
LETsS (5) = 4: LETs (6) =5: LETs (7) = 7 
FOR q = 1 TO 1509 

INPUT "Note eingeben”; n$ 

IF n$ = "**" THEN GO TO 209 

LET i=® 

LET p = CODE n$ - 64 

IFp > Id THENLETp=p- 32 

IFn$ (2) = "#" THENLETiI = 1 
LETt(gqJ)=s(p) +1 

NEXT q 

FORr=1T0q 

BEEP ®.5,t(r) 

NEXTr 


Die Einzelheiten dazu, wie das funktioniert, werden im Abschnitt über Arrays 


erklärt. 


Verbesserungen und Abwandlungen 


1 Ersetzen Sie Zeile 40 durch: 
40 LET n$= CHRS$ (INT (RND * 7) + 65) 
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Das Programm komponiert nun sein eigenes Musikstück mit genau 15®® 
Noten. Dabei gibt es keine Halbtöne, so daß das doch recht eintönig 
klingt. 

Die Dauer jedes Tons ist mit 0.5 Sekunden festgelegt. Können Sie sich 
eine Routine ausdenken, die es dem User erlaubt, die gewünschte Dauer 
jedes Tons gleichzeitig mit der Note selbst einzugeben? Sie brauchen ein 
weiteres Array für die Aufnahme der Dauerwerte von derselben Länge wie 
t. (Bei 16K geht mit zwei Arrays von der Länge 15®® der Speicherplatz zur 
Neige. Machen Sie jedes Array 750 lang.) 

Wenden Sie eine ähnliche Methode wie unter 1) an, um Zufallsmusik mit 
zufälliger Tondauer zu generieren. 

Die Musik Note für Note einzugeben, kann ein bißchen mühsam werden. 
Können Sie einen Weg finden, um sie als einzige Kette einzugeben? 

Das könnte ein nützliches Komponierinstrument sein, wenn Einzelnoten 
leicht zu verändern wären. Können Sie einen Melodie-Editor (Melodi- 
tor?) erfinden, bei der die Eingabe von, sagen wir, 38,A# die Bedeutung 
hat: "verändere die 38. Note zuA#"? 

Befreien Sie sich aus der Zwangsjacke einer einzigen Oktave. Auch hier 
brauchen Sie mehr Eingaben pro Note. Beispiel: A, ® könnte heißen "A in 
der Oktave um das mittlere C’” und C#, 2 könnte bedeuten "C#, zwei 
Oktaven über dem mittleren C’. 


SCHIFFE VERSENKEN 


Hier ein Programm, damit die Kinder an einem regnerischen Nach- 
mittag Frieden geben... 


Eine Patrouillenfahrt in der Nordsee... Plötzlich taucht aus dem Nebel das 
feindliche Schiff auf, rund eine Meile entfernt. Sie befehlen Ihren Kanonieren, 
Richthöhe und Mündungsgeschwindigkeit an ihrem Geschütz einzustellen. 
Werden Sie das gegnerische Schiff versenken können? 


19 
20 
39 


40 
50 
69 
70 
8 
99 
190 
119 
115 
129 
130 
149 
159 
169 
170 
189 
199 
290 


PRINT TAB 8; "SCHIFF VERSENKEN" 
LETt=15*(1 + RND) 

PRINT AT 21, 0; INK5; INVERSE 1," JUUUUUUUL 
IUUUDUDUDUUDUUUDUUUUUUUOUÜULIO 
[1] [LJ [J” (32 Leerst.) 

PRINTAT29,t- 2; INKS "WW EEE WM 
INPUT "Richthoehe = [_]"; e 

PRINT AT 3, ®; "Richthoehe = [_]"; e 

INPUT "Muendungsgeschwindigkeit = [_]"; v 
PRINT "Muendungsgeschwindigkeit = [_]"; v 
LETa=v*COS (Pl*e/189) 

LETb=v+SIN (Pl*e/18®) 
FORj=®TOb/16STEP .3 
LETc=.091*(b*+j-16+*j*j) 

IFa*j > 6200 THEN GO TO 199 

IFc > AB THEN GO TO 170 

INK 2 

PLOT .B94*a*,4*c +8 

BEEP .005,c + 10 

NEXTj 

IFABS (a*b/3200 -t) < 3THEN GO TO 219 
PRINT AT 19, 20; "DANEBEN!" 

STOP 


143 


oa 90 


144 


210 FORj=®TO15 
220 PRINTAT2®-j,t- 2; "Glucker!”: BEEP .3,6-3+*;j 
230 NEXTj 


SCHIFFE VERSENKEN 


Richthoehe = 56 
Muendungsgeschwindigkeit = 463 


DANEBEN 





Programmhinweise 


Zuerst wird das Meer gezeichnet, dann eine Schiffssilhouette, die jedes- 
mal zufallsbestimmt anders steht. Zeile 20 bestimmt die Zufallsposition, 
30 zeigt das Meer an, 40 das Schiff. 

50-80 geben mit INPUT Richthöhe e und Mündungsgeschwindigkeit v 
ein und zeigen sie an. Der Spieler muß, sobald ihn der Computer dazu 
auffordert, diese Werte über die Tastatur eingeben. e ist in Grad eingeteilt 
und muß zwischen ®° und 99° liegen, v ist in Fuß pro Sekunde und muß 
eine positive Zahl sein. 

90-170 berechnen und zeichnen die Flugbahn der Granate in Abständen 
von 0.3 Sekunden - siehe die mathematischen Bemerkungen unten. 
180 gibt Ihnen einen TREFFER, wenn Ihre Granate auf dem Wasser 
innerhalb von 600 Fuß um das Schiffszentrum einschlägt. Wenn das Spiel 
schwieriger werden soll, verändern Sie die 3 zu 2 oder 1.5, wenn leichter, 
zu A oder 5. 

190-230 sind Ausgaberoutinen für einen Treffer oder einen Fehlschuß. 
Für Start oder neuerlichen Start RUN gefolgt von ENTER drücken, wie 
gewohnt. 

Der Bildschirm ist hier, der Simulation entsprechend, 6409 Fuß breit. 
Das Programm ist halbwegs "benutzerfreundlich” und läuft (dank Zeile 
12®) sogar dann weiter, wenn die Granate den Bildschirm verläßt. 


9 Die Grafikzeichen in Zeile AB sind Grafik-3 und 1 mit CAPS SHIFT. 
18 "PiI’inden Zeilen 9® und 100 ist Taste M im erweiterten Modus, nicht die 
Tasten P und |! 


Mathematische Bemerkungen 


Die Bahn der Granate wird berechnet nach einer mathematischen Formel, die 
(bei Vernachlässigung des Luftwiderstands) für einen bei Schwerkraft beweg- 
ten Körper gilt — unterstellt mit 32 Fuß/sec? (deutscher Wert = 9.75 m). In Zeile 
11® stehtt für die Zeit; a ist das horizontale Element der Geschwindigkeit, b das 
vertikale; Pl * e/ 189 verwandelt Bogengrade in Radianten. Zeile 15® berechnet 
die Höhe zur Zeit j und verwandelt in Bildschirmkoordinaten (jedes PLOT-Pixel 
hat 25 Fuß im Quadrat); in Zeile 11® ist b / 16 die Zeit bis zum Aufschlag im 
Wasser; in Zeile 180 ista * b/ 180 die bis dahin zurückgelegte Entfernung; 3200 
steht da, weil wir in Zeile 4D eine PRINT-Anweisung verwenden, so daß die 
Entfernung bis zum Schiff 20® + t beträgt. 

Wenn Ihnen irgendeine andere Eigenschaft des Programms Kopfzerbre- 
chen macht, ändern Sie ab und sehen Sie sich an, was dabei herauskommt. 

Bedenken Sie Folgendes: Ein Computerspiel wie dieses zu spielen, hat 
zwar nur geringen Lernwert (die richtige Taste drücken, Entfernungen und 
Winkel schätzen), aber es schreiben oder verstehen, verlangt bestimmte Kennt- 
nisse in Programmieren und Mathematik und kann als Motivation in der Schule 
wie zu Hause dienen. 
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LISSAJOUS-FIGUREN 


Sie wurden 1815 von Nathaniel Bowditch erfunden, sind aber nach Jules- 
Antoine Lissajous benannt, der sie 1857 zum zweitenmal fand. Sie veranschau- 
lichen einen anderen Weg, mit PLOT interessante Kurven zu gestalten. Genutzt 
wird dabei, was die Mathematiker Parameterdarstellung nennen. Das heißt 
nichts anderes, als daß Sie x und y von einer Variablen t abhängig machen und 


Hier eine Abwandlung der PLOT-Routine, die wunderschöne 
Kurven hervorbringt: Lissajous-Figuren. 


PLOT x, y für Folgen von t befehlen. 


19 
20 
39 
40 
50 
69 
79 
80 
99 
199 
119 
129 
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INPUT "Erste Zahl”; p 

INPUT "Zweite Zahl”; q 

INPUT "Phasenverschiebung’'; r 

LETt=® 

LETm=p 

IFq<pTHENLETm=q 

LETx = 127 + 120 COS (t*PI/180*p+tr) 
LETy=87+80+*SIN (t* PI/180*dq) 
IFt=®THEN PLOTx, y 

IFt> ® THEN DRAW x-PEEK 23677, y-PEEK 23678 
LETt=t+19/m 

GO TO 79 


N 90 PwWN— 





Programmhinweise 


Damit es schöne Ergebnisse gibt, sollten p und q ganze Zahlen sein. 

r kann beliebig sein, das Beste ist aber, wenn es zwischen ® und 3 liegt. 

Ein guter Anfang istp = 5, q = 7,r =1. 

Pl ist Taste "M ım erweiterten Modus. 

Wenn Sie haltmachen wollen, geben Sie BREAK + CAPS SHIFT. 

Wenn es spektakulärer werden soll (wobei das Zeichnen aber länger 
dauert), probieren Siep = 31,q = 29,r=9. 

Zeile 10® berechnet die Versetzung vom alten Plotpunkt zum neuen, so 
daß DRAW zwischen beiden eine Linie ziehen kann. Die Systemvariablen 
in den Adressen 23677 und 23678, in die mit PEEK hineingegangen wird, 
enthalten die letzten PLOT-Koordinaten. Dieser Kniff ist überaus nützlich. 
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MONOPOLY-WÜRFELN 


Der Sepctrum kann dank seines Zufallszahlengenerators statistisch 
arbeiten. Dieses Programm simuliert Monopoly- Würfeln. 


Wenn Sie schon Monopoly gespielt haben, werden Sie sich erinnern, daß Sie 
zwei Würfel rollen und das Ergebnis addieren müssen, um zu erfahren, wie weit 
Sie ziehen dürfen. Bei 36 Würfen können Sie erwarten, daß die Gesamtzahl 


2 im Mittel Imal vorkommt 
3 im Mittel 2mal vorkommt 
A im Mittel 3mal vorkommt 
5 im Mittel Amal vorkommt 
6 im Mittel 5mal vorkommt 
7 im Mittel 6mal vorkommt 
8 im Mittel 5bmal vorkommt 
9 im Mittel Amal vorkommt 
1® im Mittel 3mal vorkommt 
11 im Mittel Z2mal vorkommt 
12 im Mittel Imal vorkommt 


Selbstverständlich ergibt sich dieses Verhältnis bei Ihnen nicht genau, aber auf 
lange Sicht sollten Sie — im Mittel! - nah herankommen. 

Sie können mit dem Spectrum die Welt der Statistik erforschen, indem Sie 
solche Dinge mit Hilfe von Zufallszahlen simulieren. Dieses Programm "rollt" 2 
Würfel 144mal (um das Dasein zu erleichtern: 4 mal 36), zählt, wie oft die 
Gesamtzahl 2, 3,4,... etc. ist, stellt das Ergebnis in einem "Balkendiagramm” 
dar und vergleicht außerdem das tatsächliche Ergebnis mit den theoretisch zu 
erwartenden Zahlen. 


18 DIMa(11) 

20 FORj=1TO144 

30 LETd=1+INT(6*RND) + INT (6*RND) 
40 LETa(d)=a(d) +1 

50 NEXT] 

80 FORj=2TO12 

9 LETq=a(j -1) 

10908 LETq®ß=INT (q/2) 

118 LETq1 =q-2*qd 

128 FORt=1TOqß 

138 PRINTAT18-14+2+-;"W" 
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140 NEXTt 

158 IFq1=1THEN PRINTAT17 -q99,4+2+; "WW" 

160 NEXTj 

170 PRINTAT19, 8; 
2[J3J40150U06U7’U18U9UL1D1D 1!" 

180 PRINT AT 29,24; 91T 2" 


Programmhinweise 


Das Balkendiagramm zeigt die relative Zahl des Vorkommens der Gesamt- 
zahlen 2, 3,4,..., 12. Die theoretische Form ist dreieckig mit dem Gipfel 
bei 7. Wie nah kommt das wirklich heran? Erhalten Sie dieselbe Form, 
wenn Sie mit RUN noch einmal laufen lassen? Warum nicht? 
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ARTIHMETIK-PROBE 


Hier ein Beispiel für ein “Lern”-Programm, wenn auch kein sehr 
ehrgeiziges. 


Dieses Programm verlangt vom Benutzer (Ihrem siebenjährigen Kind) eine 
Addition von zwei zufälligen zweistelligen Zahlen, prüft, ob die Antwort falsch 
oder richtig ist, und erklärt, wenn sie falsch war, wie man es richtig macht. 


18 LETv=19 
20 LETc=® 
30 PRINT "Hallo! Ich bin Sinclair Spectrum. Wer bist du?” 
40 INPUT es 
50 PRINT "FEIN, [J"; es; "[_J kannst du das” 
60 PRINT "beantworten? 
70 LETx=INT(v*v*RND) 
80 LETy=INT(v*v*RND) 
9d IFx+ty<=12THENGOTO7*v 
198 LETx1=INT (x/v) 
118 LETx2=x-v*x1 
1280 LETy1=INT (y/v) 
130 LETy2=y-v*y1 
148 IFx2+y2> =vTHENLETc>=1 
150 PRINTx; "+"; 4, "DJ = DJ? 
160 INPUTa 
170 PRINTa; "[J?" 
180 LETbD=xty-a 
190 PRINT (“richtig AND b = ®) + (“schade, falsch” 
ANDb <>) 
200 IFb=P®THEN GO TO 199 
210 PRINTx2;"+";y2;"[Jist [J";x2 +y2-c*v; 
220 IFc=1THEN PRINT "[_] uebertrage 1” 
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230 PRINT "[_] und dann [_]",x 1; "+"; y 1; "+ den Uebertrag” 
AND cc = 1; "[J ist [J'; x 1 +y1+c 
240 PRINT "ergibt []",x + y 


Programmhinweise 


Zeile 30 stärkt zuerst einmal das Vertrauen. Sie will vom Benutzer den 
Namen wissen. Zeile 50 verwendet den Namen dazu, eine Frage zu 
stellen. 

Mit Zeile 169 teilt der Benutzer dem Computer mit, was er für die richtige 
Antwort hält. 

Die Zeilen ab 209 erklären dem Benutzer, wie die Addition hätte erfolgen 
sollen, wenn er sie falsch gemacht hat. 

Die Hauptschwiierigkeit bei "Lern" -Programmen dieser Art ist die, daß sie 
meistens lange Textdisplays brauchen. Dieses Programm könnte stark 
verbessert werden, beispielsweise, um verschiedene Schwierigkeitsgrade 
einzuführen, mehr Ratschläge zu geben, wenn mit der Lösung des Benut- 
zers etwas nicht stimmt; man könnte das Programm besser dagegen 
schützen, daß der Benutzer versehentlich falsche Tasten drückt, und so 
weiter. Und interessantere Rechenaufgaben als schlichte Additionen wä- 
ren natürlich auch eine Verbesserung. Trotzdem: Die Grundzüge des 
Ganzen sind aus diesem kleinen Programm schon ersichtlich. 

Ein gutes Programm müßte nicht jedesmal mit RUN zum Laufen gebracht 
werden, sondern den Benutzer fragen, ob er es noch einmal versuchen 
will, und, wenn er ja sagt, automatisch neu laufen. Es ist nicht schwer, ein 
paar Zeilen anzufügen, um das zu bewerkstelligen. 
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GRAFIK-VORFUHRUNG 1 


Ein Exempel für die Fähigkeiten des Spectrum bei hochauflösender 
Grafik 


Für ein derart kurzes Programm entsteht hier ein bemerkenswert hübsches 
Display. 
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19 
20 
30 
40 
5 
69 


BORDER ®: PAPER ® 
FORj=®TO9 

INK7 - INT (j/ 2) 

FORi=9#TO 519 

PLOT .5*i, (88 + 70 *SIN (i*i/ 190000) +j/2)*(1 -j*j/19®) 
NEXTi 

NEXT] 





Programmhinweise 


Obwohl Veränderungen der INK-Farbe ganze 8x8-Pixelblocks betreffen, 
ist die Wirkung hier (mit den helleren Farbtönen) recht hübsch, und man 
bemerkt die Blocks kaum. 

Das veranschaulicht eine gute Methode, interessante hochauflösende 
Bilder zu erreichen: Legen Sie mehrere (ähnliche) Kurven übereinander. 
Mit "ähnlich’”’ meine ich, daß bei jedem Schritt nur ein paar kleine, 
regelmäßige Veränderungen der Formel stattfinden: Beachten Sie hier, 
wie die Werte von j die Kurve verändern. 
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GRAFIK-VORFÜHRUNG 2 


Noch ein Angebot von großem Liebreiz 


Diesmal zeichnet das dumme Ding ewig weiter, wenn Sie nicht die Geduld 
verlieren und ihm Einhalt gebieten. 
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BORDER ®: PAPER ®: INK 7 

5 LETi=9 

10 PLOT 128 + (30 + 50 + COS (i/41)) + COS (i/ 49), 
88 + (50 + 30 + SIN (i1/39)) * SIN (i/ 49) 

15 LETi=i+1 

20 GOTO1Y 


Programmhinweise: 


Wenn Ihnen das gefällt, versuchen Sie die Zahlen in der Formel zu verän- 
dern. Vor allem die 41 und die 39 können ohne Gefahr durch jeden 
vernünftigen Wert ersetzt werden, ohne daß das Bild vom Fernsehschirm 
rutscht. 

Wenn Ihnen Schwarzweiß nicht gefällt, Können Sie BREAK geben, dann 
INK mit diesem oder jenem Wert und schließlich CONTINUE. Die folgen- 
den Pixels werden in der neuen INK-Farbe dargestellt. 





PRIMFAKTOREN 


Der Spectrum istein sehr tüchtiger Zahlenknacker. Nehmen Sie, um 
sich davon zu überzeugen, eine achtstellige Zahl und verfolgen Sie, 
wie schnell dieses Programm dafür die Primfaktoren liefert. 


10 INPUTK 

30 PRINTK"J = DJ"; 

40 LETkK®=kKk 

50 IFINT(k/2)*2 =kKTHEN GO TO 149 
60 LETn=3 

78 IFINT(k/n)*n=kTHEN GO TO 119 
80 IFn*n >kTHENGO TO 170 

90 LETn=n+t2 


100 GOTO 79 
118 PRINTn;“."; 
120 LETk=k/n 
130 GOTO 79 
148 PRINT "2.”; 
150 LETk=k/2 
169 GO TO 59 


1780 IFk=kK®THEN PRINT FLASH 1; "PRIM"” 
1880 IFk<k®ANDk > 1 THEN PRINTk 


Programmhinweise: 

1 INT (k/n) +»n =k nur dann, wennk durch n teilbar ist. Das prüft also auf 
Divisoren. 

2 Das Programm versucht k durch 2 und alle ungeraden Zahlen zu teilen, 


die kleiner sind als die Quadratwurzel von k. Wenn k durch keine davon 
geteilt wird, ist sie eine Primzahl. 

3 Wenn ein Divisor gefunden wird, teilt das Programm k durch ihn und 
sucht nach einem neuen Divisor der gleichen Größe. Findet er keinen, 
sucht er nach einem größeren Divisor. 

4 Der Computer braucht bei einer achtstelligen Primzahl etwa 35 Sekun- 
den, sonst weniger. (Die angegebene Zeit gilt für 11111117; bei anderen 
Zahlen ändert sich das naheliegenderweise.) 
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5 Abwandlungen: Betten Sie das in eine Schleife ein und erzeugen Sie ein 
Display der Primfaktoren von k, k + 1,k + 2,... und so weiter bis 
unendlich. 

6 k kann höchstens 8 Stellen haben, weil der Spectrum größere Zahlen 
nicht mit ausreichender Genauigkeit bewältigt. 

7 Dieses Programm könnte mathematisch ökonomischer gemacht werden, 
beispielsweise dadurch, daß man Vielfache von 3 oder 5 aus den Prüf- 
divisoren ausschließt. Können Sie damit ein Programm schneller ma- 
chen? Der Preis für mathematische Straffheit ist erhöhte Programmgröße: 
gleicht der Gewinn den Verlust aus, wenn Sie vorsichtig sind? 
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WIE MAN GLEICHUNGEN 
DRITTEN GRADES LÖST 


Programme zur Lösung quadratischer Gleichungen hat jeder. Wie 
ware es damit? 


Dieses Programm findet alle echten Wurzeln kubischer Gleichungen ax? + bx? 
+ cx + d = ® mit einiger Genauigkeit. 


19 INPUTa,b,c,d 

50 LETb=b/a 

60 LETc=c/a 

70 LETd=d/a 

80 LETx=® 

99 LETg=-2*x*+x*xtb*x*x-d 

1098 LETh=3*x*x+t2*b*x+tc 

110 IFh=®THEN GO TO 290 

120 IFABS (x - (g/h)) < 1.E-8THEN GO TO 309 

130 LETx=g/h 

148 GOTO 99 

200 LETx=x+1 

210 GOTO 90 

300 PRINT 'x1=|[|]",x 

4090 LETa=b+tx 

410 LETb=x*x+tb*x+tc 

420 LETd=a*ra-4*b 

430 IFd < BTHEN PRINT "Andere imaginaer” 

449 IFABSd< 1.E- 7THEN PRINT 
“Numerische Instabilitaet moeglich” 

445 IFd < ®THEN STOP 

450 PRINT '"x2= []";(-a+SQRd)/2 

460 PRINT '"x3 = []"; (a-SQORd)/2 
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Programmhinweise 


Das Programm findet eine Wurzel der Gleichung durch ein Iterationsver- 
fahren, das Newton-Raphson-Methode heißt. Dabei wird für x ein Ver- 
suchswert angenommen und dieser nacheinander verbessert, bis er nah 
genug an eine Wurzel herankommt. Das bewirken die Zeilen 90-130. 
Wenn Sie sehen wollen, wie diese Iteration vor sich geht, fügen Sie an 


131 PRINTx 


damit Sie sehen, wie die Zahlen sich der Lösung annähern. 

Sobald das Programm eine Wurzel gefunden hat, teilt es durch sie, um zu 
einer quadratischen Gleichung zu gelangen, die es durch die Formel in 
den Zeilen 400-460 löst. 

Hat diese Gleichung keine echten Wurzeln, gilt Zeile 430; das Programm 
bricht dann in Zeile 450 zusammen, was aber keinen Schaden anrichtet. 
Eine Feinheit: Für manche kubischen Gleichungen entstehen zu große 
Ungenauigkeiten in der Arithmetik, und das Programm behauptet viel- 
leicht "Andere imaginär”, wenn das gar nicht der Fall ist. Zeile 440 weist 
den Benutzer darauf hin, daß das möglich sein kann. Der Haken dabei: 
Das Vorzeichen von d ist von entscheidender Wichtigkeit, und wenn d 
nahe bei ® liegt, können Fehler eine katastrophale Wirkung haben. 
Probieren Sie beispielsweise INPUTa=4,b=-8,c=5,d = - 51. Sie 
müßten erhalten x 1 = 3, andere imaginär. Versuchen Sie jetzta = 4,b = 
—- 16,c = - 5, d = 51: Diesmal erhalten Sie x 1 = 3, x 2 = 2.621323, x 
3 = 1.6213203. 


SPIELAUTOMAT 


19 
20 
30 
40 
50 
69 
70 
80 
90 
199 
119 
120 
130 
140 
150 
309 
31® 
329 
700 
720 
1999 


1910 


1920 


LETc=®9 

DIMa (3) 

FORt=1TO3 

LETr= INT (3*RND) 

LETa(t)=r 

LETi=5 

LETj=10*t-5 

GO SUB 399 

NEXTt 

LETc=c-1 

IFa(1)=a(2) ANDa (2) =a (3) THEN GO TO 700 
GO SUB 1909 

INPUT "Stop?”; b$ 

IF b$ = "s” THEN STOP 

GO TO 39 

PRINT INK2*r; ATi,; "BJ Bd; ATi+1,j; "Ei 
BEEP .1,3*r 

RETURN 

LETc=c+9 

GO TO 129 

IFc> =®THEN PRINT AT 18,5; 
"Sie gewinnen [_]"; c; "[_] Mark [_]" 
IFc < ®THEN PRINT AT 18, 5; 
“Sie verlieren [_]", - c; "[_] Mark” 
RETURN 


Auch Sie können sich ein elektronisches Spielgerät gönnen... 
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Programmhinweise 


Das Display zeigt drei Dekorquadrate. Wenn alle drei gleich sind, gewin- 
nen Sie 9 Mark. Wenn nicht, verlieren Sie 1 Mark. Drücken Sie zum 
Spielen jede beliebige Taste außer "s’’ — wir empfehlen ENTER, weil das 
einen Tastendruck erspart. Wenn Sie aufhören wollen, drücken Sie Taste 


Ss”. 

Im Mittel sollten Sie weder gewinnen noch verlieren. Immer noch besser 
als am Münzspielgerät in Ihrer Kneipe. 

Beachten Sie die Verwendung von Subroutinen, um die drei möglichen 
Quadratarten darzustellen. 

Beachten Sie den richtigen Gebrauch des Bildschirms: Sie erhalten ein 
vernünftiges Display in der Mitte, nicht ein winziges, das in einer Ecke 
zusammengedrängt ist. 


OBSKURE FAKULTÄTEN 


19 
20 
30 
40 
50 
79 
199 
119 
129 
139 
149 


Der Spectrum erlaubt, daß Sie eine Subroutine aus seinem Inneren 
herausholen. Man nennt das rekursives Programmieren. Stellen Sie 
fest, ob Sie dahinterkommen, wie dieses Programm funktioniert. 


LETf=1 

INPUT nn 

LETm=n 

GO SUB 199 

PRINT m; "[_] Fakultaet ist [_]"; f 
STOP 

IFn < = 1 THEN RETURN 
LETf=f*n 

LETn=n-1 Subroutine 
GO SUB 199 

RETURN 
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TAGEFINDER 


An welchem Wochentag sind Sie geboren? An welchem Wochen- 
tag ist Goethe gestorben? Das können Sie jetzt mit dem Tagefinder 
feststellen. 


Dieses Programm nimmt als Eingabe ein Datum t.m.j an, wo tt die Zahl des Tages 
ist, m der Monat, und j das Jahr (z. B. 23.7.1066) und errechnet wird, welcher 
Tag das ist (war, sein wird). 


19 
20 
30 
40 
50 
69 
79 
8 
99 
190 
119 
12® 


LET a$ = "933614625935 

LET b$ = "SONMONDIEMITDONFRESAM” 
INPUTt 

PRINT t; “.”; 

INPUT m 

PRINT m; ".”; 

INPUTj 

PRINT j; "[_J ist [J"; 

LETz=j-1 

LETc = INT (z/4) - INT (z/1®®) + INT (z/ 499) 
LETx=j+t+c+VALa$(m) - 1 

IFm>2AND (j=4+*INT (j/4) ANDj <> 100 + INT (j/10®) OR 
y= 400 + INT (j/400) THENLETx =x +1 


130 LETx=x-7+*INT (x/7) 
148 PRINTb$S(3*+x+1TO3*x+3) 
Programmhinweise 
1 Zeile 1® speichert eine Liste von zwölf "Monatskorrekturzahlen” in kom- 


pakter Form als String. Zeile 19® bestimmt den Monat in der Liste als Teil 
einer Berechnung, die in Anmerkung 4 erklärt wird. 

2 Zeile 20 wendet einen ähnlichen Kniff an, um die Anzeigeroutine zu 
vereinfachen. Beachten Sie, wie Zeile 149 die richtige Gruppe von 3 
Buchstaben auswählt. 

3 Zeile 109 berechnet, wie viele Schaltjahre seit dem Jahre schon vergan- 
gen sind. Zur Erinnerung: Vielfache von 4 sind Schaltjahre, nicht aber 
Vielfache von 199, wenn sie nicht zugleich Vielfache von 409 sind. 
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Zeile 11® ist das Wesentliche bei der Berechnung. Es geht darum, die Zahl 
der Tage zu berechnen, die seit einem (im Grunde willkürlich gewählten) 
Datum vergangen sind; um jedoch Platz zu sparen, werden Vielfache von 
7 ausgelassen, weil sie auf den Wochentag keinen Einfluß haben. Die Zahl 
der Jahre j wird also mit 365 multipliziert, aber 365 = 7 * 52 + 1, also 
verwenden wvir j statt 365 * j. Die Eigenheiten der Monatslängen werden 
berücksichtigt durch a$ (m). Beachten Sie die Verwendung von VAL, um 
ein einstelliges Zeichen in eine wirkliche Zah/ zu verwandeln. Um das 
Programm richtig einzustellen, habe ich ein Datum genommen, bei dem 
wir den Wochentag kennen - der 30.9.81 war ein Mittwoch - und bin 
dadurch auf die Korrektur von — 1 am Ende gekommen. Zeile 12® paßt die 
Berechnung im Januar oder Februar eines Schaltjahres an, wo sie sonst 
fehlgehen wurde. 

Eine Kalendereigenheit fehlt. 1585 übernahmen die meisten katholischen 
Länder den Gregorianischen Kalender, 17®® folgte das evangelische 
Deutschland. Mein Programm geht vom Kalender “neuen Stils” aus. 


Aufgaben 


Ändern Sie mit Daten "alten Stils’ für die Zeit vor 17®0® beziehungsweise 1585 
ab (es wurden 12 Tage dazwischengeschaltet). 


6 
7 


Das Programm nimmt unmögliche Daten an wie -37.12.-992. Andern 
Sie es so ab, daß es nur vernünftige Daten akzeptiert. 

Für Daten v. Chr. funktioniert es nicht. Richten Sie es so ein, daß es das 
tut. NB: Es hat zwischen v. Chr. und n. Chr. kein Jahr ® gegeben, obwohl 
das von der Logik her erforderlich wäre! 
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UMWANDLUNG 
BINÄR/DEZIMAL 


Binärzahlen verwenden nur ® und 1; statt ®, 1,2,3,4,5,6,...gehtdas ®, 1,10, 
11, 109, 191, 11®,... Im allgemeinen wird eine Zahl wie 11019091 von links 


Strings und Zahlen sind manchmal enger verwandt, als Sie meinen 
mögen - so in: Umwandlung BinärlDezimal. 


nach rechts aufgeschlüsselt als 


1x1 +90x2+0xA+1x8+0x16 +1x32+1x64 = 105 


wobei jede Ziffer das Doppelte der vorhergehenden zählt. Computer verwenden 
für interne Arbeit natürlich Binärzahlen (die modernen Anlagen allerdings in der 


Praxis verfeinerte Abwandlungen davon). 


Die folgenden beiden Programme verwandeln eine mit INPUT eingege- 


bene Zahl von Binär in Dezimal oder umgekehrt. 


Binär zu Dezimal 


18 INPUT a$ 

20 PRINT a$; 

30 LETI=LENa$ 

40 LETs=VALa$(1) 

560 FORj=2TO1 

60 LETS=2*s+VALa$(j) 

70 NEXTj 

80 PRINT "[] ist []”; s; "I in dezimal” 
Dezimal zu binär 

18 LETc$="" 

20 INPUTa 

30 PRINTa; 

40 LETd=INT (a/2) 

50 LETr=a-2+d 

60 IFr=®THENLETb$ = "N" 
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78 IFr=1THEN LET b$ = "1" 

80 LETc$=b$+ c$ 

98 IFd=®THEN GO TO 129 

1090 LETa=d 

118 GOTO49 

120 PRINT "[] ist [J”’; c$; "[[] in binaer” 


Programmhinweise: 


Der INPUT für die Umwandlung binär/dezimal muß eine Folge von ® und 
1 sein, etwa 11090191911. Bei dezimal/binär muß er eine ganze Zahl 
sein, zum Beispiel 3427906. 

Die beiden Programme sind so abgefaßt, daß sie verschiedene Wege zur 
Lösung des Umwandlungsproblems erkennen lassen. Man könnte sie in 
der Struktur einander sehr annähern. 

Beachten Sie bei der Umwandlung dezimal/binär, daß die Zeilen 60-79 
nicht ersetzt werden können durch 


60 LET b$ = "r" 


Sie können vermeiden, daß Sie zwei Zeilen schreiben müssen, wenn Sie 
schlau sind und CHR$ verwenden, oder Sie können schreiben 


60 LETbS= (”1” ANDr) + (“®" ANDI - 1) 


Das funktioniert aus Gründen, die damit zusammenhängen, wie der 
Spectrum Logik bewältigt - vergleiche dazu das Handbuch, Kapitel 13. 
Oder aber 


69 LETb$= "0" 
70 IFr=1THENLETb$ = "1" 


bewältigt das auch und spart ein bißchen Platz. 
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ZIEGELSTEINE 


Ein grafisches und bewegendes Erlebnis 


Vom Himmel fallen farbige Ziegelsteine. Wenn Sie die mit Ihrer Keule treffen, 
verschwinden sie, wenn nicht, stapeln sie sich. Wenn die Stapel zu hoch 
werden, ist das Spiel aus. Wieviele können Sie abfangen? 





19 
20 
30 
40 
50 
69 
79 
80 
90 
190 
166 


BORDER 1: PAPER 7 
LETh=11 

LETC=® 

DIM a (5) 

LETp= INT (5*RND + 1) 
LETj=5*p 
FORi=1TO21 -a(p) 
PRINT AT i, j; INK 6 * RND; INVERSE 1: "U" 
BEEP .02, 35 -1.9*i -j/2 
PRINTATi-1,;"00" 
LET m$ = INKEYS$ 


119 
120 
130 
149 
159 


169 
179 
180 


199 


290 


IFm$= "5" THENLETh=h-1 

IFm$ = "8" THENLETh=h+1 

IFh< 1THENLETh=1 

IFh > 26 THEN LET h = 26 

PRINT AT 15, h; “[J"; INK 2; INVERSE 1; "[] [J] [”; 
INVERSE 6; "|": 


IFi=15ANDABS (h+2-j) <=1THENLETe=c+1: 


GOTO4P 

NEXTi 

LETa(p)=a(p) +1 

IFa(p) = 7THEN PRINT AT 2, 5; INK 1; 

"Sie haben [_]"; c; "[_J] Ziegel erwischt’: STOP 
GO TO 49 


Programmhinweis 


Benützen Sie die Pfeiltasten 5 und 8, um die Keule nach links oder rechts 
zu bewegen. 
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SPIRALEN UND ROSETTEN 


168 


Noch einmal Grafik, und ein nützlicher Kniff für die Verwendung 
von DRAW, um Kurven darzustellen: Spiralen und Rosetten. 


BORDER 1: PAPER 2: INK 7 
180 FORt=0TO4ASTEP.5 
15 PLOT 128, 88 
20 FORy=0TO 720 
30 LETx=y+*PI/18® 
40 LETr=1.5+*x 
50 LETa=128+5*r*+COS(x tt) 
60 LETb=88+4*r-SIN(x+t) 
70 DRAW a-PEEK 23677, b-PEEK 23678 
80 NEXTy 


Programmhinweise 


“PI” in Zeile 30 ist Taste M in erweitertem Modus, nicht die Tasten P 
und I. 

Zeile 7® nutzt die Systemvariable COORDS (siehe Handbuch, Kapi- 
tel 25), um die richtige Versetzung für das Zeichnen von der alten PLOT- 
Position zur neuen zu berechnen. Ganz allgemein: Wenn Sie den Befehl 
PLOT p, q durch DRAW p-PEEK 23677, q-PEEK 23678 ersetzen, zeich- 
net der Computer eine gerade Linie zur nächsten PLOT-Position. Es gibt 
noch andere Wege, diese Wirkung zu erzielen, aber die Verwendung von 
COORDS verhindert, daß Fehler kumulieren, was bei manchen anderen 
Methoden nicht der Fall ist. Sie können in dieser Hinsicht experimentie- 
ren, selbst wenn Sie PEEK nicht verstehen. 

Wenn Sie statt SPIRALEN lieber ROSETTEN zeichnen wollen, verändern 
Sie die Zeilen 20 und 40 zu 


20 FORy=9TO 369 
40 LETr=29+SIN (7* x) 


Stellen Sie Experimente an und nehmen Sie statt "7" andere Werte wie 3, 
4, 5, 6, 8, g, 19. 


PICASSO 


Dieses Programm hilft Ihnen vielleicht nicht dabei, so gut zu zeich- 
nen wie Picasso, aber solange Sie bei Farbe 1 bleiben, können auch 
Sie eine blaue Periode haben! 


Das Programm beginnt damit, daß es einen Modus verlangt. Das ist entweder 
“d” für draw (zeichnen), 2’ für erase (löschen) oder 'f" für finish (abschlie- 
ßen). Im letzten Fall wird das Programm beendet. 

Wenn Sie "'d’” eingeben, verlangt das Programm eine Farbe. Sie geben sie 
als die entsprechende Ziffer ein (1 für blau, 2 für rot, etc.). 

Bei "d” oder "e’' verlangt das Programm nun eine Option, die eine Zahl 
im Bereich 1 bis 9 sein muß. Die Wirkung jeder Option wird unten erklärt. 
Beachten Sie, daß das Wort "draw’’ dann, wenn Modus ’e’ herrscht, durch 
“erase’ ersetzt werden muß. 


Option Wirkung 

1 Zeichnet horizontale und vertikale Skalen als Anhaltspunkt. In jeder 
fünften Spalte und Reihe steht ein Punkt, in jeder zehnten ein doppelter 
Punkt (kurzer Strich) in jeder hundertsten ein etwas längerer Strich. 

2 Rechteck. Sie sollen die linken und rechten Spalten und untersten und 
obersten Reihen angeben, wo die Kanten erscheinen sollen. Sie werden 
dann gefragt, ob das Rechteck gezeichnet oder als Rahmen verwendet 
werden soll (siehe Option 7). 


3 Kreis. Sie sollen Spalte und Reihe angeben, wo der Mittelpunkt erschei- 
nen soll, sowie den Radius. 

4 Kreissegment. Sie sollen die Koordinaten der beiden Ecken des Kreis- 
segments und die größte Entfernung von der Kurve zur geraden Linie 
angeben. 

5 Gerade Linie. Sie sollen die Koordinaten der beiden Endpunkte der Linie 
angeben. 

6 Gewölbte Linie. Sie sollen die Koordinaten der beiden Endpunkte der 


Linie und die größte Entfernung von der Kurve zur imaginären geraden 
Linie zwischen diesen beiden Punkten angeben. 

7 Schattierung. Sie sollen angeben, ob das Gebilde innerhalb des derzei- 

tigen Rahmenrechtecks geschwärzt oder schraffiert werden soll. Beach- 
ten Sıe, daß das derzeitige Rahmenrechteck das letzte ist, das entweder 
gezeichnet oder als Rahmen gesetzt wurde. In diesem Zusammenhang 
wird das Wort “innen” als einschließend verwendet. Mit anderen Wor- 
ten: Wenn Sie ein Rechteck zeichnen und dann Option 7 aufrufen, wird 
dieses Rechteck schattiert, es sei denn, darin befindet sich noch ein 
anderes Gebilde, worauf seltsame Dinge geschehen. 
Wenn Sie "schraffieren’’ wählen, werden Sie um Angabe gebeten, wie 
weit die Linien voneinander entfernt sein und ob die Schraffierungen 
gerade oder gewölbt sein sollen. Falls gewölbt, sollen Sie die größte 
Entfernung zwischen der Kurve und der imaginären geraden Linie zwi- 
schen den beiden Endpunkten angeben. (Geben Sie zuerst Option 2 
ein.) 
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8 Save. Das sichert ein Bild auf Band. Sie sollen einen Namen angeben. 
9 Load. Das lädt ein Bild vom Band zurück. Sie sollen seinen Namen 
angeben. 


Hinweis 


Es ist nicht notwendig, das ganze Programm auf einmal zu realisieren. Die 
Subroutinen, die mit den Zeilen 1099, 2000, 3000 und so weiter beginnen, 
betreffen die Optionen 1, 2, 3 etc. Wenn Sie also mit etwas Einfachem anfangen 
und nur Rechtecke und Kreise zeichnen möchten, brauchen Sie die Zeilen ab 
A000 nicht einzugeben. Falls Sie es so machen, dürfen Sie natürlich nicht die 
Optionen 4-9 eingeben, weil Sie sonst eine Fehlermeldung erhalten. Und noch 
eines muß man beachten: die Routinen, die bei 4099, 6000 und 7909 begin- 
nen, rufen alle die Routine bei 9509. 


10 INPUT "Modus eingeben:"; m$ 

20 IFm$ = "f" THEN STOP 

30 IFm$ = "e'” THEN OVER 1 

40 IFm$ = “d” THEN OVER ®: INPUT "Farbe:”; c: INK c 
50 INPUT "Option:”; op 

60 GO SUB 1909 * op 

70 GOTO1P® 
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1999 
1919 
1029 
1939 
1949 
1959 
1969 
1979 
1989 
1999 
1199 


2909 
2010 
2029 
2030 
2940 
2059 
2069 
2970 
2080 
2099 
2199 
2119 


3099 
3019 
3929 
3039 


4009 
4919 


FORx = PTO 255 STEP5 

PLOT x,® 

IFx/1® = INT (x/1®) THEN PLOT x, 1 
IFx/ 190 = INT (x/10®) THEN PLOT x, 2 
NEXT x 

FORy=®TO 175STEP5 

PLOT®,y. 

IFy/1®= INT (y/1®) THEN PLOT 1, y 
IFy/100 = INT (y/19®) THEN PLOT 2, y 
NEXT y 

RETURN 


INPUT "linke Spalte Rechteck:"; Ic 
INPUT "rechte Spalte:”; rc 

INPUT "unterste Reihe:”; br 
INPUT "oberste Reihe:”; tr 

INPUT "zeichne (d) oder Rahmen (f):”; m$ 
IF m$ = “f’' THEN RETURN 

PLOT Ic, br 

DRAW, tr - br 

DRAW rc - Ic, ® 

DRAW, br - tr 

DRAW Ic - rc, ® 

RETURN 


INPUT "Mittelpunkt Kreis; (Spalte dann Reihe):”; cc, cr 
INPUT "Radius:”; r 

CIRCLE cc, cr, r 

RETURN 


INPUT “eine Ecke Segment; (Spalte dann Reihe):”; c1, rl 
INPUT "andere Ecke; (Spalte dann Reihe): c2,r2 
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172 


4020 
4039 
4040 
4059 
4069 
4070 


5999 
5919 
5020 
5039 
5949 


6999 
6019 
6029 
6039 
6949 
6059 
6069 


7990 
7910 
7929 
7030 
7949 
7059 
7070 
7080 
7099 
7190 


INPUT "max. Entfernung Kurve zu Linie:”; d 


GO SUB 9599 

PLOT c1, r1 

DRAWc2-c1,r2-r1 
DRAWc1-c2,r1-r2,a 

RETURN 

INPUT "ein Endpunkt; (Spalte dann Reihe):”;c 1,r 1 
INPUT "anderes Ende; (Spalte dann Reihe):”;c 2,r2 
PLOTc1,r1 

DRAWc2-c1,r2-r1 

RETURN 

INPUT "ein Ende Kurve; (Spalte dann Reihe): ; c 1,r1 
INPUT "anderes Ende; (Spalte dann Reihe):”;c 2,r2 
INPUT ""max. Entfernung von der Geraden:’; d 

GO SUB 9599 


PLOTc1,r1 
DRAWc2-c1,r2-r1,a 
RETURN 


INPUT "schwaerzen (b) oder schraffieren (h):”; m$ 
IF m$ = "b" THEN LET s = 1: LET a = d: GO TO 7070 
INPUT "Breite Schraffierung:”; s 

INPUT "gerade (s) oder gewoelbt (c):’; m$ 

IF m$ = "'s”" THEN LET a = ®: GO TO 7079 

INPUT "max. Entfernung von der Geraden:'; d 
FORr=brTOtrSTEPs 

FORc=1IcTOrc 

IFPOINT (c,r) = 1 THEN GO TO 7129 

NEXT c 


7119 
7129 
7139 
7149 
7159 
7169 
7179 
7175 
7180 
7199 
7299 


890P 
8019 
8020 


9999 
9919 
9929 


9599 


9519 
9529 


GO TO 7199 

LETc1=c 
FORc=rcTO1cSTEP- 1 

IFPOINT (c,r) = 1 THEN GO TO 7169 


NEXT x 
LETc2=c 
PLOTc1,r 


IFm$ = "ec" THENLETr2=rLETr1 =r GO SUB 9509 
DRAWc2-c1,0,a 

NEXTr 

RETURN 


INPUT "Namen fuer Sicherung Bild eingeben:”; p$ 
SAVE p$ SCREENS 
RETURN 


INPUT '’Namen für Laden Bild eingeben:’; p$ 
LOAD p$ SCREENS$ 
RETURN 


LET1=9.5*SOR ((c2-c1)*(c2-c1)+(r2-r1)* 
(r2-r1)) 

LETa=ASN (2*I*d/(d}2+11f2))*2 

RETURN 


Abwandlungen und Verbesserungen 


Im Augenblick sind keine Tests dabei, die dafür sorgen, daß der Benutzer 
nicht versucht, über den Bildschirm hinauszuzeichnen. Fügen Sie solche 


ein. 


Manche Befehle haben die Wirkung, die horizontale Skala zu zerstören, 
so daß Sie sie mit Option 1 wiederherstellen müssen. Wie ließe sich das 
vermeiden? 

Wie wäre es miteiner Routine für vertikale (oder sogar diagonale) Schraf- 
fierung? 
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LINETTE 


In Karl Kassierers Kasino wird nicht gewöhnliches Roulette ge- 
spielt, da spielt man Linette. 


Das ist Roulette, in einer geraden Linie gespielt. 
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19 
20 
30 
40 
50 
69 
70 
80 
90 
190 
119 
120 
139 
140 
145 
150 
169 
179 
180 
199 
209 
205 
210 
215 
220 


LET w = 100 

INPUT "Faites vos jeux [_]"; b$ 

CLS 

INPUT ‘Hoehe Einsatz [_]"; a 

LETw=w-a 

FORn=9TO9 

PRINTAT1®,2*n + 6; CHR$ (48 + n) 
NEXT n 

LETr=INT(5*RND) +5 

LETd= INT (10 *RND) 

LETr=r*19 +d 

FORn=®9TOr 

LETx=n-19*INT (n/19) 
PRINTAT 19,2 *x + 6; CHR$ 143 

BEEP .®5, x 

PRINT AT 10,2 *x + 6; CHRS (48 + x) 
NEXT n 

PRINT AT 19,2*x + 6; FLASH 1; CHR$ (48 + x) 
IFb$ (1) = "g”’ THEN GO TO 219 

IFb$ (1) = "u" THEN GO TO 229 

IFVALb$ (1) =dTHENLETw=w+t1®ß*a 
GO TO 240 
IFINT(d/2)=d/2THENLETw=w+t2+*a 
GO TO 240 

IFINT(d/2) <> d/2THENLETw=w+t2+*a 


GG PP _w@® N 


249 PRINT AT 16, 9; w; "[_] Chips [J" 
250 IFw> =0THEN GO TO 29 
260 PRINT "Morgen frueh erscheinen Harrys Schlaeger!” 


Programmhinweise 


Nach RUN können Sie entweder auf GERADE, UNGERADE oder eine 
Zahl zwischen ® und 9 setzen, indem Sie Ihre Wette eingeben. (Jedes 
Wort, das mit g beginnt, wird als ‘'gerade’' gelesen, jedes, das mit u 
anfängt, als ""ungerade‘'.) 

Dann teilen Sie mit, wieviel Sie setzen wollen, indem Sie eine Zahl 
eingeben. Sie fangen an mit 199 Mark, die in Zeile 10® gesetzt werden. 
Wenn Sie gewinnen, erhalten Sie bei g oder u den doppelten Einsatz, das 
Zehnfache auf eine Zahl. Theoretisch ist das Spiel dadurch "fair’’. 

Sie können mehr setzen, als Sie in der Kasse haben, aber sehen Sie sich 
vor! 

Wenn Sie bei einer Buchstabeneingabe aufhören wollen, drücken Sie 
DELETE und dann STOP. Bei numerischer Eingabe genügt STOP. 
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LINETTE IM KREIS 


Inzwischen ist zwei Häuser weiter Karls alter Konkurrent Georg 
Geldschneider auf eine originelle Idee gekommen... 


Das ist Linette, im Kreis gespielt. Hmmmm ... 
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19 
3 
40 
50 
69 
70 


80 
82 
84 
86 
90 
199 
119 
129 
130 
149 


145 
159 


169 
170 


180 


LET w = 199 

CLS 

CIRCLE 123, 91, 84 

CIRCLE 123, 91, 60 

FORn=9TO9 

PRINTAT1® +9*COS (n*PI/5),15+9*SIN (n* PI/5); 
CHR$S (48 + n) 

NEXT n 

INPUT “Faites vos jeux, Kleiner!”; b$ 

INPUT "Wieviel willste denn setzen?’; a 

LETw=w-a 

LETr=INT(5*RND) +5 

LETd = INT (10 *RND) 

LETr=r*10 +d 

FORn=0TOr 

LETx=n-19*1INT (n/19) 

PRINTAT19 +9*COS (x *PI/5),15 +9*SIN (x * PI/5); 
CHR$ 143 

BEEP .®5, x 

PRINTAT1® +9*COS (x *PI/5),15+9*SIN (x * PI/5); 
CHR$ (48 + x) 

NEXTn 

PRINTAT1® +9*COS (x*PI/5),15 +9*SIN (x * PI/5); 
FLASH 1; CHR$ (48 + x) 

IFb$ (1) = "g’ THEN GO TO 219 


199 


IFb$ (1) = "u" THEN GO TO 229 


200 IFVALb$ (1) =dTHENLETw=w+t1ß*a 

205 GOTO 249 

210 IFINT(d/2)=d/2THENLETw=w+t2+*a 

215 GOTO 249 

220 IFINT(d/2) <> d/2THENLETw=w+t2+*a 

240 PRINT AT 19, 10; w; "[J] Chips [] [J]" 

250 IFw>=90THEN GO TO 82 

260 PRINT FLASH 1; "Gehst du zu Schorsch, ist's Geld im... . Eimer!” 
Programmhinweise 


Das geht genauso wie vorher bei LINETTE. 
Pl ist Taste M in erweitertem Modus. 
Georg Geldschneider strahlt ein bißchen mehr als Karl Kassierer. 
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MORSEN AUTOMATISCH 


Das ist ein Beispiel dafür, wie man BEEP verwenden kann. Das Programm 
akzeptiert eine Meldung über die Tastatur und verwandelt sie in Morsecode. 
Meldung und Code werden auf dem Bildschirm angezeigt; gleichzeitig kom- 
men die kurzen und langen Töne aus dem Spectrum-Lautsprecher. 


5 CLS 
10 INPUT "Eingeben Mitteilung [_]’; m$ 
20 FORi=1TOLENm$ 
30 LETc=CODEmMmS$ (i) 
40 IFc <320Rc > 32ANDc <650Rc > 9BANDc < 97OR 
c > 122 THEN GO TO 129 
50 IFc> 96 THENLETc=c-32 
60 LETcC=c-64 
198 IFc= - 32 THEN PAUSE 49: PRINT "[_]" 
118 IFc > ®THEN PRINT CHR$ (c + 64); "[]";: GO SUB 299 


120 NEXTi 

130 STOP 

200 LETK$=a$(c) 

218 LETt=1 

220 IFk$(t) = "1" THEN PRINT INK 6; ".';: BEEP .1, 19 
230 IFk$(t) = "2" THEN PRINT INK 3; "-"";: BEEP .3,19 


240 IFk$(t) = "[J"ORt=4THEN PRINT "[_J": RETURN 
250 LETt=t+1:GOTO 229 

500 REM Eingaberoutine 

510 DIM a$ (26, 4) 

520 FORr=1TO26 

530 INPUT as$ (r) 

540 NEXTr 
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Programmhinweise 


1 Um das Array zu setzen, das den Morsecode speichert, müssen Sie mit GO 
TO 500 anfangen. Sie geben dann über INPUT 26 Strings aus 1- und 
2-Zeichen ein: Das sind die Morsecodes für die Buchstaben A-Z, wobei 
1 für einen Punkt und 2 für einen Strich steht. Hier der Reihe nach die 
Strings, die eingegeben werden müssen: 


Buchstabe diesen String Buchstabe diesen String 


eingeben eingeben 

A 21 N 21 

B 2111 Ö 222 
C 2121 P 1221 
D 211 Q 2212 
E 1 R 121 
F 1121 S 111 
G 221 T 2 

H 1111 U 112 
11 V 1112 
J 1222 W 122 
K 212 X 2112 
L 1211 Y 2122 
M 22 Z 2211 


Geben Sie die Buchstaben nicht ein; sie stehen nur da, damit Sie wissen, 
wie weit Sie gekommen sind. 

2 Nach dem Setzen von a$ drücken Sie GO TO 5. Drücken Sie nicht RUN 
— Sie löschen sonst alle Variablen, die Sie eben so mühselig eingegeben 
haben. Bei diesem Programm dürfen Sie nie RUN verwenden. 

3 Wenn eine Nachricht angefordert wird, geben Sieeine solche ein. Falls sie 
länger ist als 22 Zeichen, müssen Sie abrollen. Das Programm behandelt 
Groß- und Kleinbuchstaben gleich und beachtet alles andere nicht. Bei- 
spielsweise könnten Sie ''Hallo’ eingeben. 

4 Der Computer zeigt nun die Nachricht in Buchstaben und Morsezeichen 
an und piept zu den Punkten und Strichen. 

5 Beachten Sie, wie der Morsecode in ein Stringarray aufgenommen wird. 
Das ist eine sehr häufige Verwendung von Arrays: als "Nachschlagetafel” 
für die Umwandlung von einem Codesystem zum anderen. 


Aufgabe 


Ändern Sie das Programm so ab, daß es neben Buchstaben auch Zahlen 
verwerten kann. Der Morsecode für die Zahlen ® bis 9 ist der Reihe nach: 


aa .a na 
U [4 1 L U U U U 
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ST. MORITZ 


Gehen Sie mit dem Spectrum skifahren- zu Hause, wo Ihnennichts 
passieren kann. 


Sie müssen durch den Wald abfahren und den Bäumen ausweichen, um den 
Skilift zu erreichen. Sie sind ein "M” (ein Skifahrer in "Ei”-haltung, aus der Luft 
gesehen - kapiert?) und der Skilift ist ein schwarzer Klecks (warum, weiß ich 
auch nicht). Es geht nur bergab. Wenn Sie nichts tun, fallen Sie also einfach 
hinunter, bis Sie ganz unten sind — oder an einen Baum krachen. Sie drücken 
“zZ”, um nach links, und "'m’, um nach rechts auszuweichen. 





1 CLS: RANDOMIZE 
2 LETn = 390: LET sc = 14 
1 FORi=1TOn 
20 LETr=INT (RND +18) +3 
30 LETc=INT (RND + 32) 
48 PRINTATr,c;"t" 
50 NEXTi 
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60 PRINT AT 21,20; "WW 

70 PRINT AT ®, sc; "M" 

80 PAUSE 299 

90 FORr=1TO2® 
190 LET d$ = INKEY$ 
103 IFd$s = "" THEN PRINT ATr- 1, sc; "|" 
104 IFd$ = "m’” THEN PRINT ATr - 1,sc; "\": LETsc = sc +1 
105 IFd$ = "z" THEN PRINT ATr-1,sc; "/”: LETsc=sc - 1 
120 IFSCREENS$ (r, sc) = "1" THEN PRINT ATr, sc; "rrums!”: 


GO TO 209 
130 PRINT ATTr, sc; "M” 
135 PAUSE2 
148 NEXTr 


150 IFsc < 22 AND sc > 18 THEN PRINT FLASH 1; AT 0,2; 
“Toll gemacht!”: GO TO 209 

160 PRINT AT ®, 3; "Sie muessen zu Fuss zum Skilift" 

200 INPUT “noch einmal?”; q$ 

210 IFq$ = "ja" THENGOTO 1 

220 CLS: PRINT AT 19, 2; "Et maintenant l’apres-ski.. .” 


Abwandlungen und Verbesserungen 


Die Bäume könnten Bäumen ähnlicher sehen. Experimentieren Sie mit 
ZEICHENKONSTRUKTEUR, um eine Fichte oder eine Tanne hervorzu- 
bringen. Und wenn Sie schon dabei sind: Wie wäre es damit, dem Skifah- 
rer zwei Spuren zu geben und auch gegen den schrecklichen Skilift etwas 
zu unternehmen? 

Die Zahl der Bäume ist mit 3® festgesetzt. Geben Sie dem User die 
Möglichkeit zu einem leichteren oder schwierigeren Spiel. 

In Zeile 135 in der Schleife steht "Pause 2”, um eine vernünftige Ab- 
fahrtsgeschwindigkeit zu ermöglichen. Sie könnten dem Benutzer die 
Möglichkeit geben, das zu ändern. (Ich meine nicht direkt: Stellen Sie 
eine Reihe möglicher PAUSE-Werte auf und verschaffen Sie dem Benut- 
zer die Möglichkeit, eine Schwierigkeitsstufe von meinetwegen 1-5 ein- 
zugeben, wobei jede Stufe einen anderen PAUSE-Wert auswählt.) 
Warum die Schwierigkeit nicht automatisch dadurch abändern, daß Sie 
das ganze Programm in eine Schleife stellen und die Zahl der Bäume 
und/oder der Abfahrtsgeschwindigkeit jedesmal ändern, wenn der Be- 
nutzer eine erfolgreiche Abfahrt hinter sich hat? 
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ZEICHENKONSTRUKTEUR 


Benutzergewählte Grafik, leicht gemacht. 


Mit diesem Programm können Sie in einem großen Maßstab auf dem Fernseh- 
bildschirm ein Grafikzeichen entwerfen und es dann als benutzergewähltes 
Zeichen entsprechend einem Buchstaben Ihrer Wahl eingeben. Außerdem zeigt 
es den Inhalt der acht Bytes dadurch an, daß es die Reihen des Zeichens für eine 
Wiederverwendung bei künftigen Programmen angibt. 


10 DIMk (8,8) 

20 FORi=8TO15 

30 PRINTATi, 12; “........ = 

40 NEXTi 

59 LETx=0:LETy=9 

bb GO SUB 509 

60 INPUT "Pixelwert [_]"; v 

65 IFv<>PBANDv <> 1THENGOTO 69 
70 LETkK(x+1,y+1)=v 
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8 

99 
199 
119 
1290 
290 
210 
220 
230 
235 
240 
250 
260 
270 


275 
280 
299 
390 
319 
320 
330 
590 
690 
619 
620 
630 
6409 
650 
669 
670 


PRINTATx+8,y + 12; INVERSE v; "[]" 
LETy=-y+t1 

IFYy=8THENLETy=®: LETx=x+1 
IFx =8THEN LET x = ®: LET y = : GO TO 209 
GO TO 55 

INPUT "Ist das richtig?” ; q$ 

IFq$ = "" THEN GO TO 209 

IFqg$ (1) = "y” THEN GO TO 609 

INPUT "Cursor mit Pfeiltasten bewegen’; j$ 
GO SUB 599 

IFINKEY$ < > """ THEN GO TO 249 
IFINKEY$S = "" THEN GO TO 259 

LET i$ = INKEYS 


IFi$ = "N" OR i$ = "1" THENLETK (x + 1,y+1) = VAL IS: 
PRINTATx+8,y + 12; INVERSE VAL i$; "[_]” GO TO 200 
PRINTATx +8,y + 12; INVERSEkK (x + 1,y + 1); " [1 


IFi$S= "5" THENLETy=y-1+(y=P9) 
IFis= "6" THENLETx=x+1- (x = 7) 
IFi$s= "7"THENLETx=x-1+(x= 9) 
IFi$s= "8" THENLETy=y+1-(y=7) 
GO SUB 509 

GO TO 240 


PRINTATx+8,y + 12; FLASH 1; INK 2; "*": RETURN 


INPUT "Welcher Buchstabe?”'; f$ 
FORn=1TO8 

LETt=k(n, 1) 

FORj=2TO8 
LETt=2*t+k(n,j) 

NEXTj 

POKE USR f$+n- 1,t 

NEXTn 
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7008 PRINT "So sieht das aus; [_]";; CHR$ (CODE f$ + 47) 
710 PRINT, “Bytes” 

720 FORn=1TO8 

730 PRINT PEEK (USRf#$ +n -1);"D” 

748 NEXTn 


Programmhinweise 


Zunächst zeigt der Bildschirm ein 8x8-Feld aus Punkten und einen 
blinkenden Cursor; verlangt wird ein Pixelwert. Sie geben ® oder 1 ein: 
Bei ® wird ein Punkt gelöscht, bei 1 wird er als Quadrat eingeschwärzt. 
Der Cursor läuft automatisch, Reihe für Reihe, durch das ganze Feld; Ihre 
Eingaben bauen das Zeichen nach Ihrem ersten Versuch auf. 

“ eingeben oder irgend 
beginnt, fährt der Computer fort, das Zeichen zu laden 
(siehe Anmerkung 3 unten). Wenn Sie etwas anderes eingeben, erscheint 
die Meldung “Cursor mit Pfeiltasten bewegen”. Sie müssen jetzt ENTER 
drücken, dann taucht der Cursor wieder auf. Er kann über das Keyboard 
mit den Tasten 5, 6, 7, 8 in der jeweiligen Pfeilrichtung gesteuert werden. 
Sobald Sie ihn an die richtige Stelle geführt haben, löscht eine Eingabe ® 
oder 1 vom Keyboard aus das entsprechende Quadrat oder schwärzt es 
ein. Die Meldung "Ist es so richtig?” taucht wieder auf, und Sie können, 
wenn Sie wollen, neue Veränderungen vornehmen. 

“j” getippt haben, fragt der Compu- 
ter Sie, welchem Buchstaben Ihr Zeichen entsprechen soll. Denken Sie 
daran, daß jedes vom Benutzer gewählte Grafikzeichen durch die Ver- 
wendung eines Buchstabens von der Tastatur aus zugänglich ist (ausge- 
nommen v, w, x, y, z). Welchen Sie haben wollen, müssen Sie entschei- 
den. Beispielsweise könnten Sie "s’ nehmen: Ihr neues Zeichen ist dann 
an der richtigen Stelle gespeichert, so daß s im Grafik-Modus es hervor- 
bringt. Sie können es auch mit dem Code aufrufen als CHR$ (162). 

Der Computer führt auch die acht Bytes auf, die den Reihen des Zeichens 
entsprechen. Wenn Sie sich die Zahlen notieren, können sie später muhe- 
los dadurch wieder gesetzt werden, daß man sie, wie auf Seite 127 
beschrieben, mit POKE an ihren Platz stellt. 

Von jetzt an bleibt Ihr neues Zeichen als ‘'s’’ im Grafikmodus gespeichert, 
bis Sie den Computer abschalten. Sie können andere Zeichen an anderen 
Stellen laden, wenn Sie das Programm mit RUN erneut fahren. 

Damit Sie prüfen können, ob alles richtig ist, erhalten Sie eine Probean- 
zeige Ihres neuen Zeichens. Wenn es Ihnen nicht gefällt, geben Sie GO TO 
200. Das Zeichen wird nicht angezeigt, aber wenn Sie mit dem Cursor 
durch den Bereich fahren, tauchen die Quadrate wieder auf, und Sie 
können erneut abändern. 


won 


SCHEIBENSCHIESSEN 


An einem windigen Tag auf dem Schießplatz: Wieviele Ringe 
schaffen Sie? 
10 LETd= 199 
20 LETw=40*(.5 - RND) 
30 LETv= 1909 
Ad LETs=® 
5 LETc=® 
1098 FORi=1TO8 
118 CIRCLE 127, 95,8 * ı 
120 NEXTi 
200 IFc = 11 THENSTOP 
205 PRINT AT 20, B; "RICHTHOEHE ="; 
218 INPUT e: PRINTe 
220 PRINT "Abweichung ="; 
230 INPUT Ff: PRINT f 
240 LETe=e+*PI/18® 
250 LETf=f*PI/18® 
300 LETt=d/(v*COSe) 
310 LETh=v*t*SINe-49+»t*t 
320 LETk=w*d/100 +d*SINf 
330 LEThß=8*h+95+40*(.5- RND) 
340 LETk®=8*k+127+40*(5- RND) 
350 IFh®<P®ORhG > 1750RKP® <WORKP > 255 
THEN GO TO 509 
360 GO SUB 399 
370 PRINTAT 20, ®; 
"DOUDUUUOoUUUDUUUUULUW“, 
"UOUUDUUODUUUDUUUDUUUD” 
[2 x 16 Leerst.] 


185 


186 


375 
380 
390 
400 
405 
410 
415 
420 
430 
440 
450 
469 
470 
480 
490 
500 
51 
520 
539 


535 
540 
550 


LETc=c+t1 

GO TO 209 

INK 3 

PLOTK® - 8, h®: DRAW 16, ®: PLOTKP®,h® - 8: DRAW 0, 16 
BEEP .1,5 

CIRCLEk®,hP9,6 

IFc < 1 THEN GO TO 489 
LETq=SOR ((k® - 127) *(k® - 127) + (h® - 95) *(h® - 95)) 
LETq = INT (q/8) 

LETq= 190 - 19 *q 

IFq< 30 THENLETq=9 

LETs=s+tgq 

PRINT AT ®, 25; c; TAB 28; s 

INK ® 

RETURN 

PRINT AT ®, B; "Außerhalb Bildschirm” 

PAUSE 59 

PRINTAT®8, 6 "I U U U U U U U U] [J” [10 Leerst.] 
PRINT AT 29, ®; 
"DUODUUUDUDODUODODUUO0D0D“ 
"UDUULUDUUUDUUDUUUDODDODOD” 

[2 x 16 Leerst.] 

PRINTATO®, 25; c 

LETc=c+1 

GO TO 209 


Programmhinweise 


Nach RUN werden Sie aufgefordert, eine Richthöhe (in Grad) einzuge- 
ben. Irgendwo nahe bei Null ist am besten, etwa zwischen — 2 und + 2. 
Als nächstes sollen Sie eine seitliche Abweichung (als Ausgleich für 
Seitenwind) eingeben. Der Wert sollte zwischen — 10 und + 19 liegen. 
Achtung: Sie bekommen nicht mitgeteilt, von welcher Seite der Wind 
weht! 

Sie haben einen Schuß zum Einschießen, der nicht zählt, dann 19 
Schüsse. Der Wind wechselt zwischen den Schüssen leicht. 

Das Ergebnis und die Zahl der verbrauchten Schüsse werden oben rechts 
angezeigt - zuerst die Zahl der Schüsse, dann die Zahl der Ringe. 
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Maschinencode 
und besseres Basic 


1983. 240 Seiten, Broschur 

ISBN 3-7643-1492-3 

Dieser Folgeband zu «ZA 81. Program- 
me, Spiele, Graphik» behandelt folgen- 
de wichtige Gebiete: e Datenstrukturen 
- für bessere Verarbeitung e Strukturier- 
tes Programmieren — für Programme, 
die auch funktionieren « Maschinen- 
code - für ganz schnelle Abläufe e Ver- 
schiedene Anhänge -— zur Unterstüt- 
zung, wenn Sie in Maschinencode pro- 
grammieren. Der grösste Teil des Ban- 
des ist maschinenunabhängig für auf 
Z80 aufbauende Computer verwend- 
bar. Alle Programme laufen jedoch un- 
verändert beim Sinclair ZX #8] mit dem 
I6K-RAM-Zusatzspeicher. 


lan Stewart 
Robin Jones 


Sinclair ZX81 

Programme, Spiele, Graphik 

1983. 144 Seiten, Broschur 

ISBN 3-7643-1398-6 

Eın leicht verständliches Einführungs- 
buch und eine gute Anleitung für den 
Anfänger. Das Buch bietet Ihnen die 
Grundlagen des Programmierens in 
BASIC. Es ist speziell aufden ZX #81 zu- 
geschnitten, jedoch auch für die Besitzer 
anderer Geräte mit BASIC verwendbar. 
Sie finden u.a.: e Wie Sie Ihren ZX81 
in Gang setzen «e BASIC Programmie- 
rung ® Über 50 betriebsbereite Pro- 
gramme und Spiele .« Zahlenknacken 
und Graphik # Sicherstellen von Pro- 
grammen auf Magnetband « Fehler- 
suche, 


BR °- 


£ 
Basel - Boston : Stuttgart 
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